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Foreword: 

Your  first  hours  with  your  ZX  Spectrum  can  be  bewildering. 
Once  you've  run  through  the  sample  programs  given  in  the 
manual,  you're  likely  to  think:  "Yes,  but  now  what?"  This 
book  is  intended  to  answer  that  question.  It  will  take  you 
through  programming  the  Spectrum  from  first  principles, 
right  up  to  quite  sophisticated  programming  techniques. 

And  while  you're  entering  the  programs,  zapping  aliens  and 
asteroids  all  over  the  place,  you'll  discover  that  you're  actually 
learning  a  lot  about  programming,  and  about  computers  in 
general  —  all  without  any  effort  at  all. 

This  book  is  intended  to  be  a  tool,  to  be  worked  through  with 
your  computer  turned  on  beside  you.  Its  value  will  be  greatly 
diminished  if  you  simply  try  to  read  through  the  programs. 
It'd  be  best  if  you  enter  each  program  as  you  come  to  it, 
leaving  no  alien  unzapped.  That  way,  you'll  gain  the 
maximum  benefit  from  the  book,  and  you'll  be  a 
programming  whiz  before  you  know  where  you  are. 

Time  to  get  underway.  Plug  in  your  Spectrum,  turn  on  your 
TV,  and  let's  get  going. 

Tim  Hartnell/London 

Dilwyn  Jones,  Bangor,  Gwynedd 
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Using  the  keyboard 

Although,  at  first  sight,  the  Spectrum  keyboard  can  look 
bewildering,  it  is  not  very  difficult  to  master,  so  long  as  you 
proceed  carefully  in  the  early  stages. 

The  two  most  important  keys  are  the  shift  keys  CAPS  SHIFT 
{bottom  left-hand  corner)  and  SYMBOL  SHIFT  (second  key 
from  the  right-hand  end  of  the  bottom  row  of  keys).  Find 
them  now. 

The  colours  of  these  keys  indicate  one  of  their. uses.  Turn  on 
your  Spectrum,  hold  down  the  CAPS  SHIFT  key  then  press 
any  of  the  keys  with  letters  of  the  alphabet  on  them.  You'll 
see  that  you  get  the  capital  letter  version  of  that  key.  CAPS 
SHIFT  also  triggers  the  words  in  white  above  keys  1  to  4. 
Hold  down  CAPS  SHIFT,  then  press  the  2  key.  Now,  press 
any  of  the  alphabet  keys,  and  you'll  see  they  come  out  as 
capitals.  The  use  of  TRUE  VIDEO  and  INVERSE  VIDEO  is 
discussed  in  the  section  on  graphics. 

Moving  away  from  the  white  SHIFT  key,  let's  look  now  at  the 
red  one,  SYMBOL  SHIFT.  Hold  it  down,  and  press  any  key  at 
all  (except  ENTER,  BREAK  SPACE  or  CAPS  SHIFT).  You'll 
see  you  get  the  little  red  symbols  (like  the  upward  arrow  on 
the  H  key)  from  the  key. 

Next,  press  any  alphabet  key,  without  holding  down  a  SHIFT 
key.  You'll  see  you  get  the  white  word  (IF,  NEXT,  DIM  and 
the  like).  These  are  Keywords  and  are  the  first  words  in  a  line 
of  program,  which  we  will  discuss  shortly. 

You  get  the  green  words  above  the  keys  by  pressing  down 
both  SHIFT  keys  at  once,  then  letting  them  go  and  touching 
the  key.  For  example,  hold  down  both  SHIFT  keys,  let  them 
go,  and  touch  the  D  key.  The  word  DATA  (the  word  above 
the  key)  will  appear. 

The  red  words  below  each  key  are  obtained  by  pressing  both 
SHIFT  keys  at  once,  then  letting  go  of  the  white  one,  but 
continuing  to  press  on  the  red  one,  touch  a  key.  This  will  get 
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you  the  word  BRIGHT  from  the  B  key,  ATTR  from  the  L  key, 
and  VERIFY  from  the  R  key. 

This  covers  everything  except  for  EDIT,  ENTER,  GRAPHICS 
and  DELETE. 

EDIT  —  You  use  this  to  modify  a  line  of  program.  Moving  the 
cursor  (a  greater  than,  >  ,  sign)  then  pressing  the  1  /  EDIT  key 
while  holding  down  the  CAPS  SHIFT  key,  will  bring  the  line 
to  be  edited  to  the  bottom  of  the  screen.  The  5  and  8  keys  will 
then  move  you  along  the  line  in  the  direction  of  the  arrow 
heads  shown  above  those  keys. 

ENTER  —  You  press  this  key  after  typing  a  line  of  program  at 
the  bottom  of  the  screen,  to  get  it  to  move  up  into  the  main 
body  of  program  at  the  top  of  the  screen.  It  is  also  used  after 
a  word  like  RUN  has  been  entered,  to  get  the  computer  to 
execute  the  command. 

GRAPHICS  —  If  you  hold  down  the  CAPS  SHIFT,  then  press 
the  9  key,  you  will  see  the  cursor  turn  into  a  G.  Now,  press 
the  number  keys,  and  see  what  appears  on  the  screen.  Hold 
down  CAPS  SHIFT,  and  press  them  again,  and  you'll  see  you 
get  the  'opposite'  of  the  graphic  you  got  without  using  CAPS 
SHIFT.  The  second  use  of  the  GRAPHICS  mode,  for 
user-defining  keys,  is  described  in  a  later  section  in  the  book. 

DELETE  —  This  isr  as  its  name  implies,  a  'rub  out'  key.  Hold 
down  the  CAPS  SHIFT  key,  then  press  the  0,  and  the  line 
you  are  working  on  will  be  rubbed  out,  element  by  element. 
You  can  take  your  finger  off  the  CAPS  SHIFT,  once  the 
DELETE  is  auto-repeating,  and  it  will  continue  to  rub  out  for 
you. 

Do  not  worry  if  this  description  —  which  we've  made  as 
simple  and  clear  as  we  can  —  does  not  immediately  open  up 
the  mysteries  of  the  keyboard  to  you.  Using  your  Spectrum, 
and  finding  each  thing  on  the  keyboard  as  you  need  it,  will 
eventually  lead  you  to  the  point  where  using  the  keyboard  will 
become  second  nature. 
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The  PRINT  statement 

PRINT  Is  probably  the  most-used  command  in  BASIC.  It  is 
the  command  which  allows  the  computer  to  communicate 
with  you.  Type  the  following  line  into  your  Spectrum,  and 
then  press  ENTER: 

PRINT  5 

You'll  see  that  the  computer  obediently  prints  the  number 
five.  You  can  use  the  PRINT  command  to  make  your 
computer  act  as  a  calculator.  Enter  the  following,  and  then 
press  ENTER: 

PRINT  5-3 

When  you  press  ENTER,  you'll  see  it  prints  up  the  correct 
result.  This  'direct  calculation  mode'  can  work  out  problems 
as  complex  as  you  wish.  Try  the  following,  remembering  to 
press  ENTER  after  you've  done  so  to  make  the  computer  act 
on  what  you've  typed  in: 

PRINT  SQR  {8  +  1 ) 

This  asks  the  computer  to  PRINT  the  square  root  (that's  what 
SQR  means)  of  the  sum  of  the  numbers  in  brackets,  that  is, 
the  square  root  of  nine.  If  your  computer  is  functioning 
correctly,  you  should  —  of  course  —  have  got  an  answer  of 
three. 

So  you  can  see  that  PRINT  can  be  used  in  the  direct  mode  to 
print  out  numbers,  and  the  results  of  calculations.  It  can  also 
print  out  words.  Engage  CAPS  LOCK  by  holding  down  the 
white  'CAPS  SHIFT'  key,  then  pressing  the  2  key.  This  will 
make  the  computer  print  in  capital  letters.  Try  the  following, 
then  press  ENTER: 

PRINT  Hi  THERE 

Instead  of  happily  printing  HI  THERE,  the  computer  comes 
up  with  what  is  called  an  error  message.  In  this  case,  the  error 
message  reads  "2  variable  not  found''.  If  you  want  the 
computer  to  print  out  words,  the  words  must  be  enclosed 


7 


within  quote  marks.  Enter  and  run  {that  is,  press  ENTER  after 
typing  it  in)  the  following: 


PRINT  “HI  THERE" 

You'll  see  the  words  HI  THERE  appear  at  the  top  of  the 
screen. 

To  recap  quickly.  Simply  used  as  a  command,  typing  PRINT 
2  +  3  will  tell  the  computer  to  print  out  the  result  of  that 
addition.  Entering  PRINT  “WORDS"  will  get  the  computer  to 
print  out  everything  which  is  within  the  quote  marks. 

Computers  use  programs,  and  it  is  now  time  to  write  our  first, 
simple  program.  Enter  and  run  this  program.  When  you  RUN 
this,  which  you  do  by  pressing  the  R  key,  then  pressing 
ENTER,  you  should  see  a  print  out  similar  to  that  which  is 
below  the  program  listing. 

1©  print* -thi”  isEb  DEHONSTRBT 

XDS*  PRINT  1 
4-Gk  PRINT  2 

5©  PRINT  “THIS  IS  THE  END" 

"THIS  IS  R  DHHONSTRRTIQN 
1 
a 

THIS  IS  THE  END 


While  we  have  this  program  in  the  computer,  let's  learn  a  little 
more  about  programs.  Enter  the  word  LIST  (which  you  do  by 
pressing  the  K  key),  then  press  ENTER.  You'll  see  the 
program  listing  comes  back.  Notice  that  every  line  starts  wfth 
a  line  number.  The  first  line,  in  this  case  numbered  10,  starts 
with  the  word  REM.  REM  is  computer  talk  for  'remark',  and  is 
used  in  a  program  when  you  want  to  explain  what  is  going  on 
within  that  program,  or  what  a  program  is  (as  in  this  case),  so 
that  when  you  return  to  it  later,  you'll  know  what  is  going  on. 
The  computer  ignores  REM  statements  when  it  comes  to 
them. 
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A  REM  statement  is  made  up  of  a  line  number,  then  the  word 
REM,  and  some  text.  The  message  which  follows  the  word 
REM  can  be  made  up  from  anything  you  like  —  letters, 
numbers,  punctuation  marks,  graphics  or  spaces  —  although 
it  is  best  to  keep  the  messages  as  brief  and  clear  as  you  can. 
Although  anything  typed  after  the  word  REM  is  ignored  by 
the  computer  when  it  is  running  a  program,  a  REM  line  still 
uses  up  memory. 

REM  statements  are  often  like  the  following: 

10  REM  THIS  WORKS  OUT  THE  SCORE 
10  REM  FIND  THE  ANGLE 

There  is  no  reason  why  there  should  be  just  one  REM 
statement,  but  if  the  commentary  you  wish  to  add  to  a 
particular  line  of  a  program  is  one  which  may  take  up  more 
than  one  line  of  text,  it  is  important  to  place  the  word  REM  at 
the  beginning  of  each  new  line.  For  example: 

60  REM  THE  MULTIPLICATION  ROUTINE  IN 
WHICH 

70  REM  THE  TWO  VARIABLES  A  AND  B 
80  REM  ARE  MULTIPLIED  TOGETHER 

So  long  as  each  REMark  line  starts  with  the  word  REM,  the 
computer  will  ignore  the  text  that  follows  on  that  line 
(although  the  complete  program  listing,  <REMs  and  all,  will  be 
printed  on  the  screen  if  a  LIST  is  requested). 

Now,  let's  have  a  look  at  editing.  Type  in  the  number  10, 
then  press  ENTER.  Line  10  has  disappeared.  It  is  very  easy 
to  get  rid  of  lines  you  don't  want  in  a  computer,  just  by  typing 
in  the  relevant  line  number,  then  pressing  ENTER. 

2S  PRINT  "THIS  IS  R  VEMONSTRR'r 

TON" 

30  PRINT  I 
PRINT  2 

50  PRINT  "THIS  IS  THE  £NO" 

Add  10  REM,  then  press  ENTER. 
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You'll  recall,  from  the  times  you've  pressed  LIST  while 
working  through  this  section,  that  LIST  ts  the  BASIC 
command  which  we  use  to  get  the  computer  to  print  out  the 
whole  of  the  program  it  is  currently  holding.  All  the  lines  in 
the  program  are  LISTed  in  numerical  order,  rather  than  the 
order  in  which  they  were  entered  into  the  computer.  That  is, 
the  computer  automatically  sorts  its  lines  into  order.  Enter  the 
following,  and  then  press  ENTER. 

15  PRINT  "THIS  IS  A  NEWLINE" 

You'll  see,  in  the  next  program,  that  the  new  line  (15) 
automatically  moves  into  its  correct  position  within  the 
listing. 

10  REM 

IS  PRINT  "THIS  IS  R  MEULIHE" 

2®  PRINT  "THIS  IS  R  DEMONSTRPT 

ION,r 

30  PRINT  1 

*0  PRINT  2 

SO  PRINT  "THIS  IS  THE  END" 

As  you've  no  doubt  realised,  the  RUN  command  is  used  to 
start  the  computer  operating  on  a  program  which  you  have 
entered  into  the  computer,  either  by  typing  it  in,  or  by  loading 
a  program  in  from  cassette.  The  computer  executes  all  the 
lines  stored  in  its  memory,  starting  from  the  lowest  number, 
and  working  through  in  order.  Various  commands  can  make 
the  computer  loop  back  on  itself,  but  in  essence,  the 
computer  works  through  a  program  in  line  number  order, 
unless  told  to  do  otherwise. 

If  you  want  the  program  to  stop  at  a  particular  point,  you  can 
use  —  naturally  enough  —  a  command  called  STOP.  Enter25 
STOP  (from  the  A  key,  after  holding  down  the  red  SHIFT), 
then  press  ENTER,  then  run  the  program.  It  will  print  out: 

THIS  ISA  NEWLINE 

THIS  IS  A  DEMONSTRATION 

Then,  at  the  bottom  of  the  screen,  will  be  the  message  9 
STOP  statement,  25:1  which  means  a  STOP  was  executed, 
the  first  command  in  line  25. 
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We'll  return  to  look  at  PRINT  in  a  little  more  detail  in  a 
moment,  but  there  is  one  more  command  lrd  like  to  introduce 
at  this  moment.  The  command  NEW  wiff  erase  any  program 
from  the  computer's  memory,  and  should  always  be  used  to 
remove  anything  from  the  memory  before  you  start  writing  a 
new  program-  If  you  don't  do  this,  and  you  use  different  line 
numbers  for  the  second  program,  you'll  find  the  lines  may 
well  be  interwoven  with  the  lines  from  the  old  program.  The 
NEW  command  is  brutal,  and  final,  causing  the  computer  to 
dramatically  forget  everything  you  had  typed  in,  or  loaded  in 
from  tape. 

Try  it  now  on  your  computer-  Type  in  NEW  (from  the  A  key), 
press  ENTER,  then  press  LIST  and  press  ENTER  again.  You'll 
find,  not  unexpectedly,  that  no  listing  appears.  Try  LIST  10, 
and  you'll  get  the  same  nothing  result. 


PRINT  formatting  and  TAB 

To  continue  our  exploration  of  the  PRINT  command,  engage 
CAPS  LOCK  as  before,  then  enter  and  run  the  next  program. 
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Follow  this  explanation  carefully,  and  you  should  learn  a  lot 
about  the  way  the  computer  formats  its  print  output.  You  can 
then  use  what  you've  learned  to  arrange  output  of  your  own 
programs  as  you  wish.  I'll  go  through  the  program  line  by 
line: 
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1 0  title,  REM  statement 

20-50  Each  of  these  words  PRINT,  with  nothing 

following,  prints  a  blank  line,  moving  the  next  print 
position  down  a  line.  This  explains  the  gap  at  the 
top  of  the  screen,  when  you  run  the  program, 
before  anything  is  printed. 

60  This  prints  the  word  HI  and  then,  leaving  a 

space,  prints  the  number  60,  so  you  know  which 
line  it  comes  from. 

70  The  comma  (red  SHIFT  the  comma,  near  the 

bottom  right  hand  corner  of  the  keyboard),  as  you 
can  see,  moves  the  start  of  the  line  halfway  across 
the  screen. 

80  This  allows  the  numbers  1  and  2  to  be  printed 

close  together.  Note  that  even  if  there  is  a  space 
between  the  numbers  in  the  program  (as  in  PRINT 
1  2),  the  computer  will  still  print  them  as  12. 

90  This  line  uses  commas  between  the  numbers  to 

ensure  that  they  will  be  printed  in  separate  halves  of 
the  screen. 

100  The  comma  at  the  beginning  of  the  line  moves 

the  1  halfway  across  the  screen,  just  as  the  word  H! 
was  moved  in  line  70. 

110  The  semicolon  between  the  numbers  ensures  that 
they  are  printed  hard  up  against  each  other,  just  as 
they  were  in  line  80. 

You  can  use  the  comma  and  semicolon  within  PRINT 
statements  to  control  the  output  to  produce  the  screen 
display  you  need.  Clear  the  program  with  NEW,  then  enter 
and  run  the  next  series  of  programs,  to  produce  a  number  of 
effects. 

The  first  program,  called  PRINT  TWO,  simply  prints  the 
numbers  one  to  10  down  the  side  of  the  screen.  The  next 
one  (PRINT  TWO-B}  prints  them  hard  up  against  each 
other.  PRINT  TWO-C  prints  them  in  neat  little  columns,  and 
PRINT  TWO-D  prints  out  the  numbers,  again  from  one  to 
10,  with  a  singles  space  between  them. 
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1©  REM  print  two 
20  FOR  J~1  TO  1© 

3©  PRINT  J 
40  NEXT  J 

1©  REM  print  two  -  b 
20  FOR  j=l  TO  3.0 
3©  PRINT  J; 

40  NEXT  %i 


10  REM  print  two  -  C 
20  FOR  j*l  TO  1© 

30  PRINT  J , 

40  NEXT  J 


1©  REM  print  two  -  d 
2©  FOR  J  =1  TO  10 
3©  PRINT  J ; " 

4-0  NEXT  j 


The  use  of  TAB 

TAB  (for  tabulate)  is  a  command  which  can  usefully  be 
combined  with  PRINT.  It  moves  the  PRINT  position  across 
the  number  of  spaces  specified  following  the  number.  Enter 
programs  PRINT  TWO— E  and  PRINT  TWO— F  and  see  the 
effect  of  the  TAB  command  in  these. 

1©  REM  print  two  -  £ 

20  FOR  J -1  TO  10 
3©  PRINT  TfiB  j  ;  J 
4©  NEXT  j 

1©  REM  print  two  -  F 
20  FOR  Jttl  TO  1© 

3©  PRINT  TRB  3* j, J 

4©  NEXT  J 

The  next  program  TABULATOR  ROCKET  RANGE,  shows 
how  effectively  the  TAB  command  can  be  used.  Enter,  and 
RUN  it,  then  return  to  this  book  for  a  discussion  on  the 
important  lines  within  it. 
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i®  rem  Tabulator  rocket  range 
2®  DIM  a*(5,5J 
25  BORDER  ® 

3®  FOR  j=18  TO  1  STEP  -1 
4.®  PRINT  TRB  3*J ;  INK  2;  J 
S®  FOR  3=1  TO  j 
52  BEEP  « 02 , 5* J 
6®  NEXT  a 
7®  NEXT  J 

71  FOR  b=l  TO  5 

72  RERD  q$ 

73  LET  a*  CbJ  =q$ 

74.  NEXT  b 

8®  REM  **main  progra®#* 

2®  1_ET  q  =INT  (RNDitSS)  +1 
10®  FOR  r =1  TO  5 
11®  BEEP  .®2,l®*r 

12®  PRINT  "  C'jTflB  q;  INK  r;a*fr 
>  ;  INK  ®;  TAB  30;  *'  J  '* 

13®  NEXT  r 
14-8  POKE  2.3892,-1 
15®  LET  space=g/3 
13®  FOR  p-l  TO  space 
19®  PRINT  ••  r;TRB  3®; 

20®  NEXT  P 
218  GO  TO  9® 

220  DATA  "  A" , "  ■"  , 

mI  '  ,  "  J  <  *  >  t  " 
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The  most  useful  lines  for  this  discussion  are  120  and  190,  as 
these  make  use  of  TAB  in  printing.  Line  120  behaves  as 
follows: 

"("  This  prints  a  left-hand  bracket,  hard  up  against 

the  left-hand  edge  of  the  screen. 

TAB  q  q  is  a  number  between  one  and  25  (chosen  in  line 
90)  which  determines  how  many  spaces  across  the 
PRINT  position  will  move. 
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INK  r  This  determines  which  colour  each  pair  of  the 
rocket  is  printed. 

A$(r)  This  determines  which  part  of  the  rocket  will  be 
printed.  It  uses  elements  of  the  string  array,  A$, 
which  were  assigned  by  the  READ  loop  in  71  to  74. 
Don't  worry  about  these  at  this  stage,  we'll  look  at 
them  in  detail  later  in  the  book. 

INK  0  This  turns  the  INK  colour  back  to  black 
TAB 

(30}  After  the  part  of  the  rocket  on  that  line  has  been 
printed,  the  PRINT  position  moves  across  to  the 
31st  position  on  the  line,  where  ")"  is  printed,  to 
put  a  border  down  the  right-side  of  the  screen. 

Now  let's  look  at  line  190: 

Line  190  is  within  the  loop  starting  at  line  180  and  ending  at 
line  200.  PRINT  TAB  30;")"  prints  a  on  the 

left-hand  side  of  the  screen,  then  moves  across  to  the  31st 
position  (using  TAB  30)  to  put  a  '  on  the  right-hand  side. 
Line  190  is  used  a  random  number  of  times  (determined  by 
the  q  which  was  selected  in  line  90}  to  place  a  random 
number  of  blank  print  lines  between  successive  'rockets'  to 
space  them  out.  Line  140  (POKE  23692,-1)  ensures  the 
program  does  not  keep  stopping  to  ask  'scroll?'. 


SAVEing  programs 

You  may  wish  to  keep  a  permanent  copy  of  TABULATOR 
ROCKET  RANGE.  You  can  SAVE  programs  by  typing  in  the 
program,  connecting  up  your  cassette  recorder  as  shown  in 
the  manual,  then  typing  in  SAVE  followed  by  the  name  of  the 
program  within  quote  marks.  In  this  case,  I  suggest  you  use 
the  name  ROCKET,  so  you  would  type  in  SAVE  "ROCKET": 
Turn  your  cassette  recorder  on  to  record,  after  connecting  it 
up  as  shown  in  the  manual,  and  then  press  the  ENTER  key. 

We  suggest  you  make  a  habit  of  saving  each  program  three 
times  in  a  row  on  C-12  or  C-15  (i.e.  computer)  cassette. 
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and  that  you  only  put  one  program  on  each  side  of  a  tape. 
Label  the  tape  clearly  with  the  loan  name  (i.e.  with  ROCKET 
in  this  case).  Although  it  may  seem  wasteful  to  use  up  the 
whole  side  of  a  cassette  with  just  one  program,  recorded 
three  times,  the  frustration  you  will  save  yourself  by  not 
having  to  search  through  tape  after  tape  for  a  program  you 
want  will  more  than  compensate  for  using  more  cassettes 
than  is  strictly  necessary.  The  program  is  recorded  three 
times  just  in  case  the  tape  gets  damaged  at  some  point,  or 
you  accidentally  erase  part  of  the  program,  or  —  as 
sometimes  happens  —  one  recording  of  the  program  refuses 
to  load  properly. 

You  should  clean  the  recorder's  heads  frequently,  using 
liquid,  not  a  tape  cleaner  ribbon  in  a  cassette,  to  ensure  the 
clearest  possible  signal  is  put  onto  the  tape. 


VERIFY,  MERGE 

Once  you  have  a  program  on  tape,  you  can  check  that  it  is 
correctly  SAVEd,  before  you  wipe  the  program  from  within 
the  computer. 

You  save  by,  for  example,  typing  in  SAVE  "PROGRAM", 
then  turning  your  tape  recorder  onto  record,  then  pressing 
any  key.  Rewind  the  tape,  then  enter  VERIFY  "PROGRAM", 
press  ENTER  and  rerun  the  tape.  If  all  is  well,  the  name  of  the 
program  will  appear,  and  the  0  OK  message  wilf  appear  on 
the  screen.  You  know  then  that  the  program  has  been 
successfully  SAVEd. 

It  is  possible  to  load  a  new  program  into  the  computer  while 
an  old  one  is  still  there.  The  two  programs  will  combine.  If  the 
two  programs  have  any  identical  line  numbers,  the  line  from 
the  newest  program  will  overide  that  of  the  old.  Here's  an 
example.  We  entered  this  program,  SAVEd  it,  then  NEWed 
the  computer. 


17 


10  REM  TEST  PROGRAM  ONE 
30  REM  LINE  20 
30  REM  LINE  30 
4-0  REM  LINE  40 


Then,  this  program  was  written.  MERGE  “ONE"  was  typed  in 
("ONE"  was  the  name  under  which  we  have  saved  the  first 
program)  and  then  the  recorder  was  played. 


5  REM  PROGRAM  TWO 
15  REM  LINE  IS 
25  REM  LINE  25 
35  REM  LINE  35 


Within  a  few  seconds,  we  had  this  program  in  the  computer. 


5  REM  PROGRAM  TWO 
10  REM  TEST  PROGRAM  ONE 
15  REM  LINE  25 
20  REM  LINE  20 
25  REM  LINE  25 
30  REM  LINE  30 
35  REM  LINE  35 
40  REM  LINE  40 


MERGE  is  a  very  useful  way  to  take  advantage  of  special 
routines,  such  as  RENUMBER,  which  you  can  load  in  after 
writing  another  program  if  you  like.  It  is  worth  ensuring  that 
your  routines  have  high  line  numbers  (say  above  9000) 
and  the  lower  ones  are  used  for  the  program.  This  ensures 
you  will  not  have  problems  with  overwritten  lines. 

Getting  programs  back  into  the  computer  can  prove  difficult 
at  times.  If  you  have  LOAD  problems  then  try  the  following 
tips: 

(i)  Disconnect  the  lead  not  in  use  from  both  the 
computer  and  the  cassette  recorder. 

(ii)  Try  operating  the  cassette  recorder  from  batteries. 

(iil)  Try  moving  the  computer  and  the  cassette  recorder 

further  apart,  as  well  as  the  T.V.  if  you  can. 

(iv)  Change  the  volume  setting  on  the  cassette  recorder 
since  some  cassettes  may  have  a  higher  output 
than  others.  Try  changing  the  tone  control  settings. 
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in  particular  turn  up  the  treble  or  turn  down  the 
bass. 

(v)  Make  sure  your  leads  have  not  broken  or  cracked, 
or  a  solder  joint  come  loose. 

(vi)  This  sounds  silly,  but  make  sure  your  plugs  are  in 
the  correct  hole!  You  may  find  it  useful  to  stick 
labels  on  top  of  the  computer  above  the  sockets  to 
tell  you  which  one  is  which  so  that  you  don't  have 
to  peer  round  the  back  to  look  every  time. 

Now,  let's  return  to  TAB 

We  can  only  use  TAB  with  a  single  number  after  the  word. 
Remember,  TAB  A  will  move  the  start  of  the  PRINT  position 
A+1  spaces  across  a  line.  You  can  have  the  word  PRINT 
followed  by  AT,  and  two  numbers,  such  as  PRINT  AT  10,  6; 
which  will  move  the  PRINT  position  seven  spaces  across,  and 
1 1  down.  The  top  left-hand  corner  of  the  screen  is  zero,  zero, 
so  PRINT  AT  0,  0;  indicates  that  the  printing  will  begin  in 
the  top  left-hand  corner  of  the  screen.  The  left-hand  side  of 
the  screen  is  numbered  0,  while  the  right-hand  side  is  31. 
The  screen  is  32  characters  wide,  so  the  position  furthest  to 
the  right  is  numbered  31 . 


PRINT  AT 

The  following  program,  SQUASH,  uses  PRINT  AT  Y,  X  to 
position  a  ball  (line  620)  and  a  bat  (line  150).  You  use  the  "Zr' 
and  "M"  keys  to  move  the  slide  (the  bat)  at  the  bottom  of  the 
screen  right  and  left  respectively.  The  program  keeps  track  of 
how  long  you  keep  the  ball  in  flight,  and  gives  you  a  score  at 
the  end  based  on  this  time.  Pressing  any  key  at  the  end  of  the 
game  will  give  you  a  new  game. 

This  listing  may  well  look  pretty  horrifying  at  the  moment. 
Once  you've  finished  working  through  this  book,  you  may 
wish  to  come  back  to  programs  like  this,  and  try  and  work  out 
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what  each  section  of  the  program  is  doing.  You'll  be 
surprised  to  see  how  much  of  it  you  can  decipher. 


10  REM  SQUASH 
IS  REM  AFTER  PROGRAM  BY 
JEREMY  RUSTON 
20  GO  SUB  690 

25  REM  MOUE  BAT  WITH  Z  AND  M 

KEV5 

27  1_ET  MOU£BALL=5S© 

30  LET  SETUP =300 
35  LET  MOUEBAT=4.60 
4-0  BRIGHT  I;  BORDER  4- 
4-5  PAPER  7:  CLS 
50  LET  SCORE =0 
60  GO  SUB  SETUP 

It  EE?  SCORE= SCORE* INCREMENT 

11©  ifTa*=“Z“Kor$a*  =  '‘M”  THEN  go 

SUB  MOUE BAT 

14.0  GO  SUB  MOUEBALL 

150  PRINT  AT  19,01-11,  INK  2;  B$ 

160  GO  TO  80 

29©  REM  *********** 

300  REM  **  SET  UP  ** 

310  LET  X=1  _ 

INK  1;  "HM 

34.0  PRINT”AT‘  T  +  10,  10..  INK  1;  "M" 
;  AT  T*10,30; 

350  NEXT  T 

360  LET  B$  =  ”  “*8$**‘  " 

380  LET  Y=1 

385  LET  L=1 

390  LET  M=1 

4.00  LET  B  =  10 

4-10  PRINT  AT  19,11  *6 ;  B  $ 

4-20  LET  INCREMENT  =207  *INT  tRND* 
100) 

4-30  RETURN 

4.50  REM  ****************** 

4-6©  REM  **  MOUE  BAT  ** 

IF  AND  B  =  16  THEN  RET 

4-90  IF  A$=:*•;Z•*  AND  B=0  THEN  RETU 
RN 

510  IF  A*«"M“  THEN  LET  B=B  +  1 
520  IF  R$s"Z''  THEN  LET  B=B-1 
530  RETURN 

54-0  REM  ****************** 

550  REM  ***  MOUE  BALL  *** 

570  PRINT  AT  1 1 +Y , 1 1 +X; ”  “ 

580  IF  L  *X  > IS  OR  L+X<0  THEN  LET 
L  =  — L ;  BEEP  .01,5© 
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590  IF  M+Y>8  OR  M+Y<B  THEN  LET 
M=-M-  BEEP  .01,2© 

600  LET  X  =tX  +-L 
510  LET  Y=Y+M 

520  PRINT  RT  il+Y,lltX;  INK  4- ;  D 

£ 

522  IF  Yo8  THEN  RETURN 
525  PRINT  RT  6,7;  INK  6;  PAPER 
2;  '•  SCORE  IS  SCORE;  “ 

630  IF  Y*8  RND  RBS  (B-XJ <  =2  THE 
N  RETURN 

54.0  PRINT  RT  2,2;  INK  7;  PRPER 
3; ”  END  OF  GRME 
650  FOR  G=1  TO  50 
S60  BEEP  .01.0;  BEEP  .01,60-0 
670  NEXT  G 
680  RUN 

690  REM  LETTER  IN  QUOTE  MRRKS 
IN  LINE  700  IS  RN  M, 
ENTERED  RFTER  GETTING 
INTO  6RPPHICS  MODE 
700  LET  D$="*“ 

710  FOR  H=0  TO  7 
715  BEEP  .  01,H*H 
720  RERD  N 
730  POKE  USR 
74.0  NEXT  H 

750  REM  NEXT  LETTER  IS 
GRAPHICS  B 

7S0  LET 

770  FOR  H-0  TO  7 
775  BEEP  .Ol,S0y  CH  +  1) 

7S0  RERD  N 

790  POKE  USR  "B'*+H,N 
S00  NEXT  H 
590  RETURN 

1000  DRTR  BIN  00000000, BIN  00011 
000, BIN  00111100, BIN  001111110, B 
IN  001111110, BIN  001111110, BIN  0 
0111100, BIN  00001000 

1010  DRTR  BIN  11111111, BIN  00111 
100, BIN  00011900, BIN  0&111100, BI 
N  0111100, BIN  01111110, BIN  01111 
110, BIN  11111111 
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Colours  and 
graphics 

The  Spectrum  is  equipped  with  powerful  graphics  commands 
which  you  can  use  to  greatly  enhance  your  programs.  The 
commands  are  simple  to  use,  and  capable  of  producing  a 
wide  range  of  effects. 

There  are  three  things  you  can  control  with  the  colour 
command:  the  border,  around  the  main  display  area 
(accessed  by  the  command  BORDER),  the  main  display  area 
itself  (known  as  the  PAPER)  and  the  colour  in  which  printing 
is  carried  out  (the  INK). 

There  are  eight  colours  available  (if  you  count  black  and  white 
as  colours)  and  these  are  numbered  from  zero  to  seven.  The 
colours,  and  their  corresponding  numbers,  are: 

0  —  black 

1  —  blue 

2  —  red 

3  —  magenta  (purple) 

4  —  green 

5  —  cyan  (pale  bluey-green) 

6  —  yellow 

7  —  white 

The  lower  the  number,  the  darker  the  colour.  On  a  black  and 
white  set,  the  lower  numbers  are  closer  to  black,  the  higher 
numbers  to  white. 

When  you  first  turn  your  Spectrum  on,  you'll  have  white 
PAPER,  a  white  BORDER  and  black  INK.  That  is,  the  screen 
is  completely  white,  and  any  program  you  enter  appears  in 
black. 

The  INK  and  PAPER  colours  can  be  used  in  two  ways.  The 
first  is  'globally'-  That  is,  if  a  line  in  the  program  says  PAPER 
6,  followed  by  CLS  (clear  screen),  the  entire  background 
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(that  is,  the  area  within  the  border)  will  turn  yellow.  Similarly, 
the  program  line  INK  2  will  ensure  that  all  printing  from  that 
point  on  appears  in  RED. 

The  colours  can  also  be  used  'locally'.  If  you  enter  PRINT  INK 
1;  PAPER  7;  "HI  THERE",  the  Spectrum  will  print  the  words 
HI  THERE  in  white  on  a  little  blue  strip.  The  same  local 
control  is  possible  within  INPUT  statements.  If  you  want  a 
string  input,  you  could  enter  INPUT  (INK  2;  PAPER  6;  "What 
is  your  name");  a$  and  the  question  would  be  printed  in  red 
on  a  little  yellow  strip. 


Let's  try  out  the  colour  commands  now,  by  entering  the 
following  program: 

29  REM  COLOUR  DEMONSTRRT ION 

30  FOR  B  =0  TO  7 

4.0  FOR  P  =0  TO  7 

50  FOR  1=0  TO  7 

60  BORDER  B 

70  PftPER  P:  CLS 
30  INK  I 

90  PRINT  AT  10, 10; "BORDER  B; 
tab  ia ;  “paper  " ;  P;  tab  I©.;  "INK  M; 

"lea  FOR  U=1  TO  S0:  NEXT  U:  BEEP 
.  X-5  ,P*I+2*B 
110  NEXT  I 
120  NEXT  P 
130  NEXT  B 


This  goes  through  all  the  combinations  of  BORDER,  PAPER 
and  INK.  As  you'll  see,  it  takes  quite  a  long  time  to  run  (there 
are  8*8*8  possible  combinations),  although  several  of  the 
possible  combinations  are  not  very  effective  (white  INK  on 
white  PAPER  with  a  white  BORDER  is  not  particularly  easy  to 
read')  Certain  other  groups  are  just  unattractive.  Other 
groups  of  colour  which  you'll  see  as  the  program  runs  are, 
however,  very  effective  indeed,  and  it  is  worth  keeping  a  pen 
and  paper  nearby  when  running  this  program  to  take  a  note 
of  the  best-looking  groups  of  BORDER,  INK  and  PAPER. 


The  clear  screen  line  (70  CLS)  is  needed  to  make  the  paper 
colour  'global'.  With  it,  the  PAPER  only  changes  underneath 
the  words  being  printed.  Try  the  program  again,  without  line 
46.  INK  commands  used  within  a  program  and  automatically 


global  if  on  a  separate  line  followed  by  CLS,  are  automatically 
local  if  coupled  directly  with  a  PRINT  or  INPUT  statement.  A 
global  INK  command  (such  as  INK  2  to  get  all  red  printing)  is 
not  changed  by  a  local  INK  command  (such  as  PRINT  INK  j; 
"test”)  as  the  INK  colour  reverts  to  the  one  which  was 
globally  defined  as  soon  as  a  PRINT  statement  without  an 
INK  parameter  appears  in  the  program. 


Run  the  next  program  now,  which  shows  how  effectively  the 
colours  can  mix  when  they  are  chosen  randomly. 

6  REM  Pyramid 

7  REM  ©  HitQbes,  Hartnett 
10  BORDER  7 

15  CLS 
20  LET  b=16 
50  LET  t  =0 
60  LET  =0 
70  LET  t  =20 
60  LET  t  =t  +b 
90  FOR  n  =s  TO  s+b*2-2 
100  PRINT  RT  t ,n;  INK  INT  (RND* 

6)  +l; 

105  BORDER  INT  (RND*6.i  +1 

110  NEXT  n 

120  LET  1=1-1 

130  LET  b=b-l 

14.0  LET  S=S+1 

150  IF  b>0  THEN  GO  TO  60 

155  BORDER  1 

16©  GO  TO  ISO 

The  program  draws  a  pyramid  of  little  coloured  blocks.  The 
BORDER  flashes  alarmingly  all  through  the  program,  and 
finally  (lined  155)  turns  blue.  Line  160,  which  just  calls  itself, 
is  designed  to  suppress  the  'OK'  report  code  which  would 
otherwise  spoil  the  display.  You  get  out  of  the  program  by 
pressing  BREAK. 


The  little  black  square  at  the  end  of  line  100  is  available 
directly  from  the  keyboard  by  getting  into  the  GRAPHICS 
mode  (white  SHIFT  key,  then  press  key  9)  and  then  pressing 
the  8  key,  still  holding  down  the  white  SHIFT  key.  Inverses  of 
other  characters  are  available  by  simply  pressing  the  INV. 
VIDEO  (white  SHIFT  key,  then  the  4  key).  You  revert  to  what 
is  called  TRUE  VIDEO,  by  pressing  the  white  SHIFT  key,  and 
the  3  key.  The  black  background  behind  inverse  letters  turns 
into  the  INK  colour,  and  the  letters  themselves  turn  into  the 
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PAPER  colour,  which  can  look  most  effective,  as  the  next 
program  demonstrates: 


15  PAPER  5 
17  CLS 


20  FOR  9=1  TO  100 
30  INK  RND*7 
4-0  PRPER  RND*7 
SO  BORDER  RND*7 
70  pnd  *5  3-  *  RND  *9 ; 

SO  HEXTT 


Using  the  program  colours  directly  in  a  program  can  produce 
good  results  as  this  program  -  COLOUR  CODE  —  shows. 
This  is  a  variation  of  Mastermind  but,  as  you'll  see  by  running 
it,  the  program  expects  you  to  guess  a  code  of  four  colours, 
not  four  numbers  or  letters  as  in  most  computer  versions  of 
the  game.  Enter  and  run  the  game,  then  return  to  the  book 
for  an  explanation  of  the  colour  and  graphics  commands 
which  are  used  in  it. 
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10  REM  COLOUR  CODE 

20  POKE  23609/100 
30  DIM  C(4-l 

4-0  DIM  G  f  4- J 

50  DIM  HC4-JI  ^ 

SO  INK  0 :  BORDER  0 


PAPER  7;  C 


70  PRINT  ' ' 'TRB  3; "I  THINK I 

NG  OF  fl  4- -COLO UR  v-,,  j-totVF  10  G 
30  PRINT  |C0DE#  YOU  rtwvE  *- 

GEQ0T PRINT3® '"IT.  I  CHOOSE  FROM  T 
HESE  COLOURS- '' 

100  FOR  C  =1  TO  6  or.-"  -> 

110  PRINT  TAB  4-+C/  INK  0/  U,  / 

>••;  INK  C ;'W' 

120  NEXT  C 
130  PRINT  ' 

DIFFERENT  .  *’ 

14.0  PRINT  ' 

BEGIN. . . - 
150  PRUSE  4-E4- 
150  CL 5 

170  PRINT  RT  1/5; 

130  FOR  C  =  i  TO  6 
190  PRINT  INK  0;  C; 


RLL  4-  COLOURS  RRE 
PRESS  PMY  KEY  TO 


INK  C. 


2®0  NEXT  C 
210  PRINT  ' 

220  LET  C.m=INT  lRND*S.>  +1 
=’30  LET  2=1 


2A©  LET  Z=X*1 

£50  LET  C»Z> =INT  (RND3-6J  +  1 
26©  LET  «J=0 
270  LET  J=U  +  1 

£30  IF  CfJJxCCZJ  THEN  GO  TO  230 
£9©  IF  J<Z-1  THEN  GO  TO  270 
300  IF  Z<A  THEN  GO  TO  24-0 
310  FOR  G=1  TO  10,  POKE  23692,- 

^320  Pfil^T  INK  ©;  "ENTER  GUESS  NU 
MBER  " ; G 
33©  INPUT  fi 

335  FOR  0=1  TO  32;  PRINT  C-HR*  0 
; ;  NEXT  O 
3 A©  PRINT  ** 

•  i 

350  FOR  Z=1  TO  A 

360  LET  St2.>=fl-10»1NT  (fl/10.' 

37©  LET  HfZ)=G(ZJ 
3*0  LET  R=INT  (R/10J 
390  NE.XT  Z 

AO©  LET  B=0:  LET  U=© 

Al©  FOR  Z=1  TO  A 

4-2©  IF  C(Z.W>G(Zi  THEN  GO  TO  AS 

© 

43©  LET  B=B+1.  BEEP  -2,B»15 

4A0  LET  G  I'Z.*  =0 

450  NEXT  Z 

46©  FOR  Z=1  TO  A 

47©  IF  G iZ) *©  THEN  GO  TO  520 

43©  FOR  0=1  TO  A 

49©  IF  CtZlOGtUl  THEN  GO  TO  51 

S 

SO©  LET  U=W4l;  BEEP  ,2,60-B *15 
51©  NEXT  J 
52©  NEXT  Z 

53©  FOR  T  =4  TO  1  STEP  -1 
SA©  PRINT  INK  H  H*  J  ;  “■  '* ; 

55©  NEXT  T 

56©  PRINT  INK  BLRCK"; 

57©  IF  BOX  THEN  PRINT  "5"; 

580  PRINT  "  RnO  WHITE"; 

59©  IF  WO  1  THEN  PRINT  "S" 

50©  IF  U=1  THEN  PRINT 
51©  IF  B=A  THEN  PRINT  "YOU  GOT 
XT ,  IN  " ; G; "  GUESS"; 

52©  IF  G  >  1  AND  B=A  THEN  PRINT 

”630  IF  BOA  THEN  NEXT  G 
65©  PRINT  '  '  "THE  CODE  WAS  M ; 

660  FOR  H=1  TO  100;  NEXT  H 
67©  FOR  T=A  TO  1  STEP  -1 
68©  FOR  H— 1  TO  NEXT  H 

69©  BEEP  •  2  ,  T * 1© :  PRINT  INK  C <T 

:« ;  "■  ■■ ; 

7©0  NEXT  T 

71©  FOR  H=1  TO  50;  BEEP  ,01,H: 
NEXT  H 
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7?0  POKE  23692,-1 

730  PRINT  ''"DO  YOU  URNT  RNOTHE 

c  niDMF'7 " 

735  PRINT  T»0  3;  "ENTER  V  Off  H'\ ti 
74-0  L£T  R*  =  INKEY*.-  IF  INK  EY  $  * 
THEN  GO  TO  74-0  _ 

750  IF  CODE  ffiOC-ODE  "N"  THEN  H 

UN 

750  CU5 

770  PRINT  ' '  INK  RND*S; TRB  RND* 
ir;  "OKy  BYE  FOR  NOW!" 

730  POKE  23692, -1 
730  FOR  H=1  TO  25 
S00  NEXT  H 
510  GO  TO  770 


I  RM  THINKING  OF  R  4--COLOUR 
CODE .  YOU  HRUE  1®  GOES  TO  GUESS 
IT.  I  CHOOSE  FROM  THESE  COLOURS 


RLL  4-  COLOURS  ORE  DIFFERENT. 

PRESS  RNY  KEY  TO  BEGIN... 

Line  20  (POKE  23609,  100)  changes  the  rate  of  'click’ 
when  you  press  a  key  into  a  beep,  to  act  as  positive  feedback 
when  you  press  a  key.  We  tend  to  use  this  all  the  time,  and 
find  it  very  useful  when  programming.  Line  60  sets  the  INK 
and  BORDER  black  (0)  and  the  PAPER  white  (7).  The 
routine  from  lines  100  to  120  print  out  the  six  colours 
(printing  a  blob  of  each  colour)  in  a  diagonal  line,  with  the 
numbers  next  to  the  colours  they  refer  to.  Line  150  waits 
until  any  key  is  pressed  before  continuing. 

The  routine  from  220  to  300  picks  the  colours,  making 
sure  that  all  four  are  different.  Line  210,  meanwhile,  has 
moved  the  print  position  down  one  (using  the  apostraphe 
from  the  7  key,  accessed  with  the  red  SHIFT  key),  and  lines 
180  to  200  have  printed  the  six  colours  across  the  top  of 
the  screen,  together  with  the  numbers  which  refer  to  them. 
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Line  310  starts  the  loop  to  give  10  guesses.  The  second  half 
of  line  310  {POKE  23692,  —  1 )  ensures  that  if  the  screen  is 
ever  filled,  it  will  automatically  scroll,  without  requiring  a 
response  to  the  question  "scroll?"  which  you  often  otherwise 
get  at  the  bottom  of  the  screen.  Along  with  the  key  press 
beep,  we  also  use  this  'automatic  scroll'  POKE  frequently. 

Line  320  asks  for  the  guess  to  be  entered,  and  once  it  has 
(line  330),  uses  the  backspace  (CHR$  8)  32  times  to  back 
over  the  line  requesting  the  entry  of  the  guess.  Line  340 
overprints  this  with  blanks.  This  means  that  the  line  ENTER 
GUESS  2  is  erased,  but  previous  guesses  {and  the  colour 
code  at  the  top)  are  not,  so  you  can  look  at  previous  guesses 
to  help  you  work  out  your  answer.  You  enter  your  guess,  by 
the  way,  by  entering  a  four-digit  number,  using  the  colour 
code  given  at  the  top  of  the  screen.  That  is,  to  enter  BLUE, 
just  press  1 . 

The  routine  from  lines  350  to  390  strip  the  number  you  have 
entered  down  to  four  separate  digits,  the  variables  for  blacks 
(B)  and  whites  (W)  are  set  to  zero  in  line  400,  and  then  the 
guess  is  compared  with  the  four-digit  code  the  computer  has 
thought  of,  giving  little  beeps  for  'whites'  or  'blacks'  as  it 
finds  them.  If  you  are  right,  the  program  tells  you.  If  you  are 
not,  and  you  have  not  used  up  your  10  guesses,  you  are  told 
of  the  digits  of  the  right  colour  in  the  right  position  (blacks) 
and  of  the  right  colour  in  the  wrong  position  (whites)  and 
given  another  guess. 

You  will  know  that  you  cen  use  PRINT  AT 3,6;  "TEST"  to 
print  the  word  TEST  four  lines  down,  and  starting  seven 
spaces  across.  The  control  character  CHR$  22  behaves  like 
PRINT  AT,  but  with  a  difference.  To  get  the  same  result  as 
PRINT  AT  3,  6;  "TEST"  you  need  to  enter  PRINT  CHR$  22 
+  CHR$  3  +  CHR$  6;  "TEST".  However,  because  the 
Spectrum  allows  concatenation  (the  adding  together  of 
strings),  you  can  add  all  these  CHR$'s  to  equal  one  string. 
This  can  be  quite  useful,  if  you  wish  to  specify  a  particular 
PRINT  AT  location  several  times  in  a  program.  Run  the  next 
program,  and  you'll  see  this  working. 


as 


10  LET  a$=CHR*  33+CHR*  4+CHR* 

20  PRINT  a -  TEST- 

TAB  can  be  emulated  by  preceding  CHR$  n,  where  n  is  the 
number  of  spaces  (plus  one)  you  wish  to  start  printing  on  a 
line,  with  CHR$  23.  Run  the  next  program  to  see  this  in 
action.  However,  as  CHR$  23  really  expects  to  be  followed  by 
two  numbers  (n  and  m,  which  has  the  same  effect  as  PRINT 
TAB  n  +  256*m),  you  can  precede  the  information  within  the 
quote  marks  with  a  space,  or  a  dummy  letter  (X  in  our 
example),  which  will  not  be  printed.  Run  the  next  program, 
and  you'll  see  that  instead  of  printing  XTEST  right  down  the 
screen,  it  will  simply  print  TEST. 

10  LET  3$sCHR$  23-tCHRf  4. 

30  PRINT  a  "xTEST" 

30  GO  TO  30 


At  the  start  of  this  section,  we  discussed  the  eight  colours, 
and  looked  at  how  these  could  be  used  for  the  information 
which  is  printed  (INK),  the  background  (PAPER)  or  the 
border  (BORDER).  The  information  printed  can  be  modified 
by  the  use  of  two  additional  commands  —  BRIGHT  and 
FLASH.  The  following  routine  shows  these  in  action.  Enter 
and  run  it,  then  return  to  the  book  for  a  brief  discussion  on 
these  two  new  statements. 


HT 


4.0  PRINT  INK  4- A  "NQRMFtL  _ 

4-S  PRINT  BRIGHT  1;  INK  A;  "BRIG 


RINT  INK  4 PftPER  2;  "NORHR 
-X&HT  1;  INK  4;  PRPE 
I;  INK  •*;  "FLASH 


55  PRINT  B) 

P.  2;  "BRIGHT  “ 

60  PRINT  FLi 

TNG 

&5  PRINT  BRIGHT  1;  FLASH  i;  IN 
K  1;  "BRIGHT 

70  PRINT  FLASH  li  PAPER  2i  INK 

4;  "flhshing 

75  PRINT  BRIG# 


PER  3;  INK  4; "BRIGHT 


FLASH  1 ;  PR 


Although  the  effect  of  FLASHING  is  impossible  to  miss,  you 
may  need  to  look  a  little  more  closely  to  see  the  effect  of 
BRIGHT.  Once  you  have  run  this  program,  look  at  the  word 
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BRIGHT,  just  under  NORMAL  near  the  top  of  the  screen. 
You'll  see  this  Is  a  different  shade  of  green.  The  white  on 
green  (the  sixth  line  down  on  the  screen)  shows  the  effect  of 
BRIGHT  more  clearly.  Compare  the  'lightness'  of  the  word| 
BRIGHT  here  with  the  word  FLASHING  just  above  it.  With 
the  non-FLASHING  words  printed  in  green  on  red  (a  pretty 
awful  combination),  you'll  see  that  the  'bright'  word  is 
somewhat  easier  to  read  than  is  the  'normal'  one. 

Although  the  numbers  zero  to  seven  have  been  explained  for 
INK,  PAPER  and  BORDER,  other  numbers  can  be  used. 
Using  8  (as  in  PAPER  8)  means  that  no  matter  which  is 
printed  at  this  point,  the  colour  will  remain  unchanged.  This  is 
not  particularly  useful  in  ordinary  programming,  but  the 
number  9  can  be  quite  effective. 

'9'  means  contrast,  and  ensures  that  if  you  are  printing  on  a 
light  background,  will  print  the  words  in  black,  and  in  white 
on  a  dark  background,  somewhat  like  the  way  the  colour  of 
an  INPUT  statement  changes,  depending  on  the  BORDER 
colour.  The  next  program  shows  this  in  action,  printing 
randomly-generated  letters  of  the  alphabet,  in  random 
positions  on  the  screen,  against  a  randomly  chosen  PAPER 
colour.  Run  the  program  for  a  while  to  see  this,  and  then 
return  to  the  book  for  our  next  useful  graphics  command. 

5©  PAPER  RN D*S 
^0  CLS 
30  JNK  3 

1S0  FOR  G-l  TO  33 

110  PR  TNT  AT  RND  RNO  *30 ;  CHR  $ 

ibS  +  INT  i  RND *26)  )  ; 

NEXT  G 
130  GO  TO  60 

14.0  PRINT  AT  RND*20fc>RND*30;  OUE 
R  1; CHRf  CSS  fINT  CRND* 2S>  > ; 

The  word  OVER  is  very  useful,  and  can  produce  some  very 
odd  effects.  You  will  have  noticed  an  apparently  useless  line 
at  the  end  of  the  previous  program.  Using  the  edit  control, 
put  line  1 40  in  place  of  line  110,  and  change  the  32  at  the 
end  of  line  100  into  300.  You'll  notice,  from  time  to  time, 
that  letters  are  printed  on  top  of  a  letter  which  had  previously 
been  printed  in  that  position.  The  OVER  command  means 
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that  the  new  letter  does  not  wipe  out  the  one  below  it,  but 
simply  compliments  it,  'subtracting'  one  from  the  other  to 
form  a  new  shape.  This  allows  us  to  build  up  some  characters 
of  our  own.  Enter  and  run  the  next  program  to  create  some  of 
your  own.  It  is  very  hard  to  predict  the  effect  of  'adding' 
various  letters  in  this  way.  For  example,  a  small  "o"  and  a 
small  "w"  combine  to  produce  what  appears  to  be  a  capital 


10  OUER  1 
20  FOR  <3  =  1  TO  16 

30  INPUT  "ENTER  R  LETTER ’*  i  R< 

10  INPUT  "ENTER  ANOTHER  LETTER 

“ B  $ 

50  PRINT  RT  GyG.;R»;CHR$  B;  B* 

SB  NEXT  G 


You'll  remember  we  discussed  the  way  CHR$  22  and  CHR$ 
23  could  be  used  to  replace  PRINT  AT  and  TAB,  and  the  way 
these  can  be  added  together  (concatenation)  so  that  the 
whole  command  can  be  held  in  a  single  string.  The  same  can 
be  done  with  the  other  commands.  The  control  characters, 
and  the  commands  they  replace,  are:  CHR$  16  -  INK;  CHR$ 
17  -  PAPER;  CHR$  18  -  FLASH;  CHR$  19  -  BRIGHT;  CHR$ 
20  -  INVERSE;  CHR$  21  -  OVER.  These  are  followed  by  the 
character  which  corresponds  to  the  colour  required.  These 
can,  as  we  said,  be  added,  as  the  next  program  shows. 


20  INPUT  PAPER  6.;  INK  1..  "ENTER 
r*  COLOUR  FOR  INK";  INK 
3©  INPUT  INK  2: "ENTER  R  COLOUR 
FOR  PAPER".:  PAPER 
4-0  INPUT  FLRSH  1;  BRIGHT  I;  IN 
K  *;  PRPER  2;  “ENTER  R  UORD";FF* 

50  LET  R*=CHR$  16+CHR*  INK +CHR 
5  X7+CHRJ  PAPER tAi 

50  PRINT  RT  10,.  10.;R$ 


Line  60  in  this  program  could  also,  of  course,  be  added  into 
the  string,  A$.  Perhaps  you  might  like  to  try  to  do  this  as  an 
exercise. 


Additional  control  characters  are  explained  in  the  manual, 
where  there  is  a  table  giving  a  complete  description  of  the 
various  effects  available  from  the  top  row  of  the  keyboard. 
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If  you  want  to  see  how  effective  the  colour  can  be,  even  from 
a  simple  program,  enter  and  run  the  next  routine.  If  the  beeps 
drive  you  mad,  delete  lines  90  and  100.  If  you  want  the 
picture  to  build  up  more  quickly,  change  the  7  at  the  end  of 
line  40  into  a  6,  so  that  white  blobs  are  not  printed. 


13  p PIPER  ?:  BORDER  0:  CL3 

2©  LET  R=RND*1© 

3©  LET  B=RND*16 

4-0  LET  Z=RND*7  _ 

3©  PRINT  RT  ft,B;  INK  Z;  ,,B,‘ 

5©  PRINT  BT  21-ft.B;  INK  Z; 

7©  PRINT  RT  INK  Zj * 

3©  PRINT  RT  R.31-B;  INK  X)  ”W 
30  IF  RN0 :» RND  THEN  GO  TO  20 
100  BEEP  RND^30,RND*60-RM£>*00 
110  GO  TO  2© 


When  you've  run  this  for  a  while,  modify  it  to  read  as  follows. 


10  PAPER  7;  BORDER  &. 

LET  R  =RND *10 
25  LET  F=RND 
3©  LET  B=RNDj16 


CLS 


FLASH  F:  BRIG 


FLHSfl  F 


4- 0  LET  Z=RND*S 
50  PRINT  RT  R,B; 

HT  1 ;  INK  Z ;  "M" 

5- 0  PRINT  RT  FLASH  E;  S 

RIGHT  l;  INK  Z.;  “»•* 

70  PRINT  RT  21-R..31-B; 

;  BRIGHT  l;  INK  Z.;  “iP*  _  „ 

S©  PRINT  RT  R..  31-B.;  FLASH  F.i  5 
RIGHT  Xi  INK  Z; 

9©  IP  RND>RND  ' 

I©©  BEEP  RND 730- RND *6© -RND *&0 
11©  GO  TO  2© 


HEN  GO  TO  2© 


You'll  see  this  has  BRIGHTened  each  blob,  and  added  a 
random  FLASH  to  each  circuit  of  the  program.  BRIGHT  and 
FLASH  understand  1  as  on  (so  FLASH  1  turns  it  on)  and  0  as 
off  (so  FLASH  0  turns  it  off).  FLASH  and  BRIGHT,  like 
various  other  commands,  do  not  INT  a  random  number,  but 
round  it  up  or  down  to  the  nearest  whole  number  (where  the 
INT  of  a  positive  number  is  always  the  nearest  whole  number 
below  the  number  plus  fraction),  so  the  effect  of  line  25  in 
program  nine  b  is  to  turn  the  FLASH  on  for  some  loops  of  the 
program,  and  off  for  others.  You  can  see  this  is  so  by 
changing  the  R  ND  in  line  25  to  a  1 ,  then  running  it  for  a  while. 
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then  a  0  and  running  it  for  a  while.  Finally,  you  may  like  to 
modify  the  program  to  become  the  next  program,  'Greek 
alphabet  soup',  a  name  you  will  understand  once  you've  seen 
the  program  running.  This  final  version  recaps  many  of  the 
points  we've  discussed  so  far  in  this  section  of  the  book. 


7  REM  GREEK  ALPHSEET  SOUP 
it.  FRPEP.  7.  BORDER  0:  CLS 
20  LET  R=RND*10 
OVER-  X 

SO  LET  B=RND*16 

4-0  1_ET  .Z=RND.*7 

4-5  LET  R$=CHR*  f 65 +RND 

SO  PRINT  BT  fl,B;  BRIGHT  X;  INK 

^sS$print  bt  ax-B,B;;  BRIGHT  1; 

TK|^  T  '  Jlj  J 

70  PRINT  BT  BRIGHT 

l;  INK  Z;  B $ 

SO  PRINT  BT  B.31-B;  BRIGHT  X; 

INK.  2jfl$ 

90  GO  TO  20 


PLOT 

The  PLOT  commands  allow  very  high  resolution  graphics,  as 
can  be  seen  by  running  the  programs  'Galaxy'  and  'Solid 
Sine'.  Once  you've  run  ‘Solid  Sine',  you'll  notice  that  while 
the  dot  resolution  is  256  x  192,  the  colour  resolution  is  only 
32  x  22.  In  effect,  the  colour  is  mapped  onto  the  PLOTted 
screen.  Despite  this  lack  of  resolution  in  the  colour,  very 
effective  high  resolution  designs  can  still  be  created. 


10  REM  Galaxy 

20  PRPER  &:  BORDER  0:  CLS 
30  LET  C  »255 :•  LET  4=175 
4-0  INK  PND  *7 
50  LET  3*C*PND 
60  LET  b*d*RND 
70  PLOT  3,b:  PLOT  a  ..  d -b 
©0  PLOT  C~3..b:  PLOT  C-a,d-b 
90  IF  PND.W5  THEN  GO  TO  63 
95  INK  RNDs? 

100  GO  TO  50 
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10  REM  Solid  S irte 
30  REM  ©  Colin  Hughes, 

Hartnei i  196£ 

30  BOR0ER  2.-  CLS 
4.0  FOR  X  -2)  TO  S3  STEP  -5 
50  LET  y=20*SXN  (X/32*PIJ 
8©  XF  y  =0  THEM  GO  TO  100 
70  FOR  n=0  TO  y  STEP  SGH  'J/4- 
80  PLOT  INK  RND*6;X^3^3a,3JMJ>  + 
30) 

90  NEXT  n 

100  BEEP  .  1 ,  X  :  NEXT  X 


DRAW 


You  can  prove  how  effective  the  graphics  can  be  by  entering 
and  running  the  next  program  —  Broken  Glass  —  which  uses 
the  DRAW  command.  The  PAPER  is  set  to  white  {line  30), 
then  the  BORDER  (line  50)  and  the  INK  colours  (line  60)  are 
chosen  at  random.  Line  70  checks  to  ensure  that  these  are 
different.  If  they  are  not,  a  new  INK  colour  is  chosen.  The 
screen  is  cleared  (line  100)  and  a  pair  of  coordinates  are 
chosen  randomly.  A  point  is  plotted  in  the  centre  of  the 
screen  (line  130)  and  a  line  is  DRAWn  from  this  point  to  the 
previously  chosen  coordinates.  The  DRAW  statement  works 
out  how  long  its  line  has  to  be,  and  at  what  angle,  but  it 
needs  to  be  given  a  starting  point.  This  starting  point  is  given 
in  this  program  by  using  PLOT. 
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1®  REM  Broken  glass 

2®  REM  ©  Hartnell,  Rust on  1982 

30  PAPER  7 

50  LET  a  =IWT  (RND*3J 

60  LET  b=INT  (RND*7) 

70  IP  a  =  b  THEN  GO  TO  60 
30  BORDER  3 
90  INK  b 
100  CL5 

110  LET  C=INT  (RNDS25&J -123 

120  LET  d=INT  [RND*172.l  -35 

130  PLOT  123,36 

14-0  DRAW  C,d 

14-5  BEEP  ,01,RND*l®0-5® 

150  IP  RND  :>  0 « 02  THEN  GO  TO  11© 
160  RUN 
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The  DRAW  command  draws  lines  when  the  word  DRAW  is 
followed  by  two  numbers.  These  numbers  are  the  PLOT 
coordinate  of  the  finishing  point  of  the  line.  If  you  add  a  third 
number,  the  DRAW  command  will  draw  part  of  a  circle,  with 
the  third  number  specifying  an  angle  to  be  turned  through. 
The  program  —  'Broken  Curves'  —  which  is  the  same  as 
'Broken  Glass',  except  for  the  end  of  line  140,  draws  a  sort 
of  windswept  version  of  Broken  Glass,  by  turning  the  line 
through  PI/2  radians  as  it  is  plotted. 


10  REM  Broken  curves 

20  REM  ©  Hartnell,  Ruston  1982 

30  PAPER  7 

5©  LET  a  =  INT  <RNE>*8> 

60  LET  b  =  INT  tRND*7> 

70  IF  a=b  THEN  GO  TO  60 
80  BORDER  a 
90  INK  b 
100  CL5 

110  LET  C -I NT  (RND*2S6) -128 

120  LET  d=INT  (RND*l72> -85 

130  PLOT  123,86 

14-0  DRAW  C,d,PI/2 

145  BEEP  . ©1, RND*100-50 

150  IF  RND  >  0 • 0 15  THEN  GO  TO  110 

160  RUN 
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10  REM  Broken  curves 

15  REM  Changing  colour 

20  REM  @  Hartnell/  Ruston  1982 

3©  prpeR  7 

50  LET  3  =INT  (RNDfS) 

60  LET  baINT  IRND*?) 

70  IF  a=b  THEN  GO  TO  60 
80  BORDER  a 
90  INK  b 
100  CLS 

110  LET  C  * INT  (RND*256>  -12© 

120  LET  d=INT  (RND*172) -85 
130  PLOT  128.86 

135  IF  RND  >0 . 5  THEN  INK  RND  *-6 

14.0  DRRU  C,rf.PI/2 

14.5  BEEP  .  01/ RND  *100-50 

150  IF  RND >0.015  THEN  GO  TO  110 

160  RUN 


CIRCLE 

There  is  still  another  graphics  command,  CIRCLE,  which  — 
as  you  might  expect  —  draws  circles.  The  program  'Tunnel 
Vision'  sets  a  pale  blue  background,  and  white  PAPER,  then 
draws  a  series  of  circles  in  a  random  colour,  around  a  centre 
point  which  changes  a  little  from  circle  to  circle,  of  a  random 
radius.  The  first  number  after  the  word  CIRCLE  is  the 
x-coordinate  of  the  centre,  the  second  number  is  the 
Y-coordinate,  and  the  third  number  is  the  radius. 


io  RE«  Tunnel  vision 
15  BORDER  5;  PAPER  7;  CL.  5 
20  CIRCLE  INK  RN0J&;  120  + RND  3- 10 
as+RND*7-RN0-7 . RND*6S 
30  IF  RND > . 92  THEN  CL 3 
4.0  BEEP  RN0/3;  RND*100-30 
50  GO  TO  20 


10  REM  Tunnel  Vision 
15  rem  with  random  wain 
20  CIRCLE  INK  RND *6; 128+RND*10 
—RND  *10  ,  36  +RND  *7  -RND  -7  ,  RND  *65 
25  PLOT  128.,  36 

38  DRAM  INK  RND*&;  OUER  1,32-R 
ND  *  64- ,  2 1 -RND  *4-2 

4-0  BEEP  RND/4-  . RND*S0-30 
50  IF  RND >.33  THEM  GO  TO  30 
60  IF  RND  < . 93  THEN  GO  TO  20 
70  RUN 
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Finally,  here  are  some  more  programs  to  demonstrate  how 
effective  the  graphics  of  the  Spectrum  can  be. 


5  PAPER  RND*7 

7  REM  Rando»  coloured  blObs 
ie  REM  screen  demo 
SO  BORDER  S 
25  PAPER  7 
ST  CLS 

30  PRINT  INK  RND»5+i;ftT  RND *21 
,  RND *31; "B” 

4-0  GO  TO  30 


10  REM  Sound  and  vision 
SO  BORDER  RNDi7 :  PRPER  RND*-7: 

S5  PRINT  RT  10,8;  INK  RND  *7; "E 


UNO  and  VISION 


30  BEEP  RND*S0/'£00>RND*5O 
4-0  GO  TO  SO 


lO  REM  Tessera ct 
IS  REM  ©  Gourlay,  Hartnell 
15  BORDER  1+RND.  PRPER  7;  CLS 
20  RANDOMIZE 
£5  LET  p=©5.  LET  S  =4-5 
30  LET  X  =RND*P :  LET  y=RND*p 
35  INK  RND  *6 
37  FOR  g  =1  TO  RND *30 
4-0  PLOT  p+X+S,p+y 
5©  PLOT  p+y+S,p+X 
60  PLOT  p-X+£  ,P+y 
70  PLOT  P+y+Sj.p-X 
SO  PLOT  p  -x  +S  ,  p  -y 
90  PLOT  P-y+S/P-X 
100  PLOT  p+x+s,p-y 
110  PLOT  p-y+s^P+x 
120  LET  X =x +RMD +RND-1 
13©  LET  y =y +RND+RND-1 
135  NEXT  g 

140  IF  RND  < . 2  OR  RBS  X  >p  OR  y >P 
THEN  GO  TO  4-0 

150  IF  RND <.01  THEN  GO  TO  25 
160  GO  TO  30 
190  RUN 
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10  REM  Whirlpool 
20  PRPER  7;  CL. 5 
30  INK  0 
4-0  BORDER  7 
50  FOR  3=1  TO  10 
50  FOR  J  =1  TO  7  STEP  -1 
70  PLOT  a*  jit-COS  (j>+U0/fc*j*SI 
N  ( j >  + 1 00 
S0  NEXT  j 
30  INK  a  S2 
100  NEXT  a 
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.w, 


10 

REM 

Spokesman 

£0 

PRPER  7;  CLS 

30 

INK 

0 

4-0 

BORDER  7 

50 

FOR 

a =5  TO  19 

50 

FOR 

J=a  TO  7 

STEP  .  3 

70 

Pi_OT 

a+j«oo& 

t J  J  72  +  1 10 , a  * J * 

SIN  CJJ  +100 
3©  NEXT  J 
100  NEXT  3 


I®  REM  Force  field 
15  REM  {very  siow.'t 
2®  PAPER  7:  CLS 
30  INK  0 
4-0  BORDER  7 
50  FOR  a -2  TO  19 
60  FOR  j=l  TO  7  STEP  .01 
70  PLOT  3  +  { J  +4-  i+S  XM  i  J.)  i+OOS  ij 
)  +110,fl#fj+2#SIN  {JJ.i#SIN  { J.i  +10 
0 

80  NEXT  j 
90  XMK  3X3.5 
100  NEXT  3 
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String  art 

The  program,  written  by  Jeremy  Ruston,  bounces  two  balls 
around  the  screen  (X,Y  and  L,M),  and  then  draws  lines 
between  them.  An  extra  feature  is  that  new  velocities  are 
chosen  every  so  often  —  so  making  the  balls  bounce  at  points 
other  than  the  sides  of  the  screen.  To  remove  this  feature, 
delete  line  116. 

Line  Description 

5  Sets  the  colours  to  be  black  on  a  white  background. 
This  line  is  needed  since  you  might  run  the  program 
with  different  colours  in  effect. 

10  Chooses  a  random  x-coordinate  for  the  first  ball. 

20  Chooses  a  random  y-coordinate  for  the  first  ball. 

30  Chooses  a  random  x-coordinate  for  the  second  ball. 

40  Chooses  a  random  y-coordinate  for  the  second  ball. 

50  Initializes  the  variables  required  for  choosing  velocities 
for  the  balls. 

60  Defines  a  decent  random  number  generator. 

100  Calls  the  subroutine  at  line  1000.  This  subroutine 
chooses  random  velocities  for  the  balls, 

1 10 Just  showing  off! 

115The  variable  'num'  holds  the  number  of  steps  that  will 
be  made  before  new  velocities  are  chosen. 

1 1 6 If  'num'  reaches  zero,  it  is  time  to  choose  new 
velocities.  The  routine  at  1000  also  chooses  a  new 
value  of  'numr. 

120  Moves  to  x,y, 

130  Joins  x,y  to  L,M. 

140  If  adding  the  x-coordinate  of  the  first  ball  to  its 
velocity  would  take  it  off  any  edge  of  the  screen, 
reverse  the  direction  of  movement,  by  negating  the 
velocity. 

150  See  140. 

160  See  140. 

170  See  140. 

180  Adds  the  velocities  of  the  first  ball  to  its  coordinates. 
190  And  the  same  for  the  second  ball. 

200  Showing  off  again. .  . 

210  Generate  a  random  number  between  0  and  199 
inclusive. 


220  If  the  number  is  one,  then  RUN,  so  clearing  the 
screen  and  creating  a  new  pattern. 

230  Otherwise,  draw  the  next  line  in  sequence. 

1000  Makes  the  X  velocity  of  the  first  ball  be  a  random 
number  in  the  range  —  V  to  +  V. 

1010  See  1000. 

1020  See  1000. 

1030  See  1000. 

1040  Chooses  a  random  value  for  'num'.  Notice  that  num 
is  not  allowed  to  be  zero. 

1050  Returns  to  the  main  program. 

You  can  make  the  lines  farther  or  closer  from  each  other 
by  altering  the  values  of  U  and  V  in  line  50. 

It  is  interesting  to  alter  the  DRAW  statement  in  line  130  to 
draw  a  curve  —  but  beware  of  drawing  off  the  screen,  and 
creating  an  error! 


K  0 


3.0  LET  X=INT  (RND*2S6) 
2©  LET  U=INT  (RND*176) 
3©  LET  L  =  XNT  (RND*2S61 
4-0  LET  ffl  as  INT  (RND*17S) 
50  LET  U  * 15 :  LET  V  =7 
60  PEP  fN  r  ixi  =INT 
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3.00  GO  SUB  1000 
2.10  REM  REPEAT 

225  LET  nu»=f)UIB-l 

216  IF  nu»=0  THEN  GO  SUB  1000 

220  PLOT  X  y 

200  ORAL!  l-X,»-y 

24.0  IF  X  +a  >255  OR  x+a<0  THEN  LE 
T  d  s  -  d 

150  IF  y+b>X7S  OR  9+b<0  THEN  LE 

T  b  =  -b 

150  IF  UC>255  OR  L  +  CCO  THEN  LE 

170  IF  ®+d>I7S  OR  fll+d<©  THEN  LE 

T  d  =  ~d 

180  LET  xsjf+a:  LET  y=y+b 
290  LET  l=l+C:  LET  Jft=m+d 
200  REM  UNTIL  FALSE 
220  LET  CCint=sFN  r  (200) 

220  IF  COR  t  =1  THEN  RUN 
230  GO  TO  110 
2000  LET  a  =FN  r tUJ -V 
2010  LET  b=FN  r  (O)  -V 
202©  LET  C  =FN  rtu)-v 
203©  LET  d=FN  rtu)-V 
204.0  LET  nuffi  =FN  r  (20)  +10 
2©50  RETURN 


Moire  patterns 

This  program  draws  Moire  patterns.  The  program  works  by 
drawing  a  series  of  lines  from  the  centre  of  the  screen  to 
each  point  on  the  edge  of  it.  As  these  lines  are  drawn  with 
OVER  set,  you  get  the  effect  shown  below. 
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You  may  like  to  modify  the  program  to  use  another  central 
point  for  the  pattern  other  than  the  actual  centre  of  the 
screen.  Try  removing  the  OVER  references,  and  increasing 
the  STEP  size  in  the  two  FOR  statements  in  lines  10  and 
50  to  about  4.  This  will  give  you  truer  Moire  patterns,  but 
because  of  the  comparitively  low  resolution  of  the 
Spectrum  screen,  the  effect  is  not  so  good  as  that 
obtained  with,  say,  the  BBC  computer. 


Colour  with  this  program  does  not  bode  well,  because  of 
the  close  proximity  of  the  dots  drawn. 


1  PfiPER  0.  INK  7:  BORDER  0:  C 

5  REM  Moire  patterns 

6  REM  Bu  Jeremy  Rus ton 

7  REM  s****************** 

1C  FOR  X=0  TO  2E5 

20  PLOT  X  ..  0 

3©  DRAW  OVER  1;  255  -X  *2,  ITS 
4.©  NEXT  x 
50  FOR  y =0  TO  ITS 
S3  PLOT  a,y 

70  DRfiU  OVER  1 ;  255  ITS  -y  *-2 
30  NEXT  y 


5  PAPER  0;  CL5  ;  BORDER  0 
10  FOR.XaO  TO  £55 
20  PLOT  X,0 

30  DRAW  OVER  1 ; 255 — X *2  0 J75 
4-0  NEXT  X 
50  FOR  Y=0  TO  ITS 
60  PLOT  0 , Y 

70  DRAW  OVER  1 ; 255 , i 7» -Y *2 
80  NEXT  Y:  REM  ©  U,  Rust  on 
85  LET  SkRND+«5 
90  FOR  X =255  TO  0  STEP  -S 
100  PLOT  X,0 

110  DRAW  OVER  1 ,2S5-X*2. 175 
120  NEXT  X 

130  FOR  Y=0  TO  175  STEP  S 
14-0  PLOT  0  /  Y 

150  DRAW  OVER  1 , 255 , 17S-V *2 
160  NEXT  Y 
165  PAUSE  200 

170  INK  RND*7:  PAPER  9.  CLS 
130  CO  TO  85 
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c  Spinning  triangles 

t>  REM  g*  Jeremy  m*s-ton 

3  REM  *********************** 

9  XNK  6:  PhPER  0.  BORDER  0;  C 


1® 

LET 

L  =RM04256 

2® 

LET 

M=RNDii 75 

30 

LET 

N  =RN£>  J25t 

LET 

0=RNB*i76 

5® 

LET 

P=RND*£55 

60 

LET 

0=RNE>*175 

70 

LET 

A  =  RND*5 

6® 

LET 

S=RN1>*E 

90 

LET 

C  =RND *S 

100 

LET 

D=RNI>*E 

110 

LET 

E=RND*5 

120 

LET 

F=RND*S 

13® 

REM 

REPEAT 

14-® 

PLOT  L,M 

IS® 

DRAW  N-L,0-M 

160 

DRAW  P-N‘j  Q-O 

17® 

DRAW  L-P,M-D 

171 

FDR 

X=i  TO  set.- 

NEXT 

,x 

16® 

IF 

L+A>£55  OR 

L  +  P*  <  0 

THEN 

T  R  = 

-A 

190 

IF 

M+B> 175  OR 

THEN 

T  6  = 

-B 

20® 

IF 

N+C  >255  OR 

N  +  C 't  0 

THEN 

T  C- 

-C 

21® 

IF 

0-FD>17E  OR 

O  +  €*  <  ® 

THEN 

T  D- 

~D 

22® 

IF 

P+E>255  OR 

P+E-C® 

THEN 

T  E  “ 

-E 

23® 

IF 

O+F.'-ITS  OR 

Q+F*.'® 

THEN 

T  P  = 

-F 

24® 

CLS 

26® 

let 

L  =L +A :  LET 

N-M  +  S 

26® 

let 

N=N+C:  LET 

0-0+0 

270 

LET 

P=P+E.  LET 

3-Q+F 

260 

REM 

until  false 

29® 

60 

TO  13® 

LE 
LE 
LE 
LE 
EN  LE 
LE 
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POINT 

POINT  behaves  to  PLOT  as  SCREEN$  does  to  PRINT  AT. 
That  is,  you  can  use  POINT  to  determine  the  presence  or 
otherwise  of  a  PlOTed  dot  at  a  specific  location. 


Here  is  a  simple  program  to  demonstrate  this,  which  scatters 
some  PLOTs  about  at  random,  then  checks  them  at  random. 
Each  time  POINT  (see  line  70)  finds  a  PLOT  at  the  position  it 
is  checking,  it  BEEPs  to  let  you  know  it  has  found  one.  You 
should  get  a  'success  rate'  of  around  1  %. 


10  REM  PLOT POINT 
SO  FOR  A  =  1  TO  10© 

30  PLOT  RND*I00 , RND*10© 

4-©  NEXT  A 

50  LET  COUNT =0 

60  FOR  G=1  TO  100© 

TO  IF  POINT  tRND^100,RNDfl®0) ^ 
1  THEN  BEEP  1,1:  LET  COUNT =COUNT 
+1:  PRINT  AT  1,1; “SUCCESS  RATE  X 
5  M  ;  COUNT/G*100;  »  11  :  AT  3.1; 

’NUMBER  OF  TRIALS;  “;G  ’  ' 

S0  NEXT  G 


If  POINT  (x,y>  equals  one  then  there  is  a  PLOTted  point  at 
that  position.  If  it  does  not,  POINT  (x,y)  equals  zero.  Try 
running  the  above  program  with  the  A  loop  running  to 
1000,  and  the  G  loop  to  10000.  Your  success  rate 
should  be  around  10  times  higher  than  the  first  run  (i.e. 
around  10%).  Why  is  that  so? 


The  printer 

There  are  three  commands  which  are  used  in  connection  with 
the  printer  —  LUST,  LPRINT  and  COPY. 

LLIST  —  This  dumps  the  entire  program  listing  on  to 
the  printer. 
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LPRINT  —  This  command  also  behaves  like  PRINT, 

writing  to  the  printer  rather  than  to  the  screen.  It 
can  be  used  in  the  direct  mode,  such  as  LPRINT 
"HI  THERE",  or  within  a  program,  such  as  10 
LPRINT  "THE  ANSWER  IS  A 
COPY  —  This  copies  the  entire  contents  of  the  screen, 
after  a  program  has  been  run,  to  the  printer. 
Because  the  printer  cannot  represent  colours,  or 
dark  PAPER  colours  and  lighter  INKs,  the  copy 
on  the  printout  may  be  considerably  less 
impressive  than  the  picture  you  have  on  your 
screen.  Experiment  with  use  of  the  INVERSE 
command  on  a  local  basis  to  enhance  the 
printouts* 


Random  numbers 

Random  numbers  are  very  useful  for  games  playing.  Let's 
examine  the  production  of  random  numbers,  and  use  them  in 
a  few  simple  programs. 

The  computer  allows  you  to  generate  two  floating  point 
random  numbers  beween  zero  and  one. 

Enter  and  run  the  following  to  see  a  range  of  numbers 
between  zero  and  one: 

1©  PRINT  RND 
20  OO  TO  20 


You'll  get  a  list  of  numbers  something  like  this: 


.  00112^1504 
,  08581543 
©  .  43719482 
0.79025269 
© .2691803 
© . 1S934631 
0 . 20188904 
0  -  14257813 


0 , 69433594 
. 075531006 
© , 6658763 
0,94125366 
0,89408569 
0  - 5S688477 
S  .75686096 
0  «  ^1463154 
Q  h 8129 15G4 
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You'll  find  that  random  integers  are  often  of  far  more  use 
than  are  these  numbers  between  zero  and  one.  To  do  this, 
enter  a  statement  like  INT(RND  *30)  +1.  Run  this  program. 
You're  likely  to  get  a  series  of  numbers  such  as  those 
following  the  program. 


10  REM  randoa  integers 
20  LET  R=sTNT  <RND*rl00)  -hi 
30  PRINT  TAB  S ;  A 
*0  GO  TO  20 


14. 

33 

19 


9 

4-1 

13 

72 

70 

0© 

20 

4-4- 

©6 

1© 

©0 

96 

30 

3© 

2© 

35 

1 


The  computer  takes  the  number  in  brackets  (known  as  the 
argument  of  the  function)  and  selects  numbers  at  random 
between  one  and  that  number.  To  get  negative  random 
numbers,  just  put  a  minus  sign  in  front  of  the  word  INT.  Try 
that,  and  run  it  again,  to  get  a  result  like  this: 


-97 

-88 

-68 

-78 

-4-0 

-5® 

-88 

-80 

-4-6 

-6 

-91 

-61 

-68 

-9 

-4-2 

-15 

-86 

-4-6 

-52 

-87 

-9 

-25 
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You  can  use  the  random  number  generator  for  ^ny 
application  where  you  need  to  emulate  a  random  activity  in 
the  real  world,  like  the  distribution  of  weeds  in  a  garden,  the 
spread  of  clouds  in  the  sky,  or  the  result  of  rolling  dice.  The 
next  program  emulates  the  roll  of  a  six-sided  die.  Enter  and 
run  it  a  few  times. 


10  REM  *DIC-E  ROLLER* 

30  PRINT  "MOW  MRNY  TIMES  WILL 
3®  PRINT  "I  ROLL  THE  DIE-*" 

4.0  INPUT  R 
30  CL  3 

60  PRINT  "RESULT  OF  ROLLING",1 
THE  DIE  TIMES'* 

70  FOR  B  =1  TO  fl 
80  LET  C=INT  (RNOf5} +1 
90  PRINT  ,C 
10©  NEXT  B 


RESULT  OF  ROLLING 
THE  DIE  S  TIMES 

6 

5 

6 
& 
a 
3 


Bull  fight 

Here's  a  very  simple  game  which  shows  the  randopn  number 
generator  in  action.  The  game  is  not  really  much  of  a  game, 
but  entering  and  running  it  is  well  worthwhile.  Once  you've 
played  a  few  rounds  of  the  game  return  to  this  book  for  a 
discussion  of  the  program.  You  should  be  pleasantly 
surprised  at  how  much  you  have  already  learned. 


You  are  a  matador.  The  bull  will  charge  you  10  times.  You 
select  a  number  between  one  and  three,  and  the  bull  does  the 
same.  So  long  as  the  numbers  are  different,  you  survive  that 
move.  If  the  bull  picks  the  same  number,  the  game  is  over. 
You  are  given  a  score  at  the  end. 
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10  REM  BULLFIGHT 
20  LET  SCORE  =0 
30  FOR  G=±  TO  10 

4-0  PRINT  RT  4-,  4-:  INK  2;  “THE  BU 
LL  IS  CHARGING" 

S0  PRINT  -  TAB  4-;  INK  1 ;  "LEHIGH 
MOVEMENT  Cl  TO  3.**?" 

70  INPUT  A 

80  IF  A  {  i  OR  A >3  THEN  GO  TO  70 
90  LET  B=INT  CRNDa-B.t  +1 
100  IF  A=B  THEN  GO  TO  220 
120  PRINT  *  TAB  4-;  INK  4-i  “YOU  AA 
E  SAFE  IN  MOUE  " ;  INK  2;  G 
130  BORDER  RND*7 

14.0  PRINT  INK  2 ;  “THE  BULL  P 

JOKED  " ; B 

1S0  PRINT  '  INK  4-;  "YOU  PICKED  ** 

•  p 

ISO  FOR  H  =1  TO  lO 

170  BEEP  .  1  ,RND*50-»ND*5B 

130  NEXT  H 

190  CLS 

20O  NEXT  G 

210  GO  TO  230 

220  PRINT  '  INK  2; "YOU  HAVE  FA I 
LED  AS", "A  MATADOR” 

230  FOR  T=2  TO  SO:  BEEP  ,05, AND 
*50.  NEXT  T 

24.0  PRINT  *  INK  2;  "YOU  SCORED  " 
100*  CG-1J 


THE  BULL  IS  CHARGING 

WHICH  MOVEMENT  <1  TO  3i? 

YOU  HRUE  FAILED  AS 
A  MATADOR 

Note  how  the  apostraphe  (')  in  lines  120,  140,  150,  220 
and  240  (available  on  the  7  key)  is  used  to  move  the  PRINT 
line  down. 

Let's  go  through  the  program  line  by  line: 

10  REM  statement  title. 

20  Sets  the  variable  SCORE  to  equal  zero.  We'll  be 
discussing  variables  shortly. 
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30  Starts  the  FOR/NEXT  loop  to  count  the  10 

goes.  FOR/NEXT  loops  are  discussed  a  little  later 
in  the  book. 

40  Prints  out  that  the  bull  is  charging. 

60  Asks  the  player  to  enter  a  number  between  one 
and  three. 

70  Accepts  the  number  from  the  player. 

80  Checks  to  see  if  the  number  lies  between  one 
and  three,  and  if  it  does  not,  goes  back  to  line 
70  to  accept  another  input  from  the  player. 

90  Sets  B  equal  to  the  bull's  number,  a  number 

chosen  at  random  between  one  and  three. 

100  compares  the  player's  number  {A)  with  the  bull's 
number  <B>  and  if  they  are  the  same,  sends 
action  to  line  220  to  tell  you  you  have  failed  as  a 
matador. 

1 20  Tells  the  player  he  or  she  has  survived  that  move. 

1 30  Changes  BORDER  colour. 

1 40  Tells  the  player  the  bull's  number. 

1 50  Reminds  player  of  his  or  her  number. 

160—180  Puts  in  a  short  delay,  with  music,  before  next 
round. 

1 90  Clears  the  screen. 

200  Goes  back  for  the  next  round. 

210  If  the  player  has  survived  10  rounds,  goes  to 
print  out  the  score. 

220  This  is  the  failure  message,  if  A  and  B  were 
found  to  be  equal  in  line  1 00. 

230  Delay  loop,  with  music, 

240  Prints  out  the  score. 

Reading  through  this  explanation  a  couple  of  times,  and 
looking  carefully  at  the  line  or  lines  it  refers  to,  should  teach 
you  quite  a  bit  more  about  programming.  There  are  a  number 
of  specific  commands  which  we  will  look  at  in  more  detail, 
but  you're  probably  starting  to  pick  up  quite  a  bit  at  this 
stage. 
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Variables 

You  will  have  noticed  in  the  previous  program  that  letters 
were  used  to  represent  numbers.  The  letter  A  was  assigned 
(in  line  70)  to  a  number  between  one  and  three  and  B  was 
assigned  in  the  same  way  in  line  90.  The  letters  A  and  B  in 
this  program  are  called  variables. 

There  are  two  types  of  variables:  numeric  and  string 
(alphanumeric). 

Almost  any  combination  of  letters  and  numbers  can  be  used 
as  a  variable,  so  long  as  it  begins  with  a  letter,  and  there  are 
no  punctuation  marks  or  symbols  within  the  name.  So 
SMUDGEPOT  and  D17  are  valid  variable  names,  while 
2SMUDGE  and  1  D7  are  not.Numerlc  variables,  letters  or 
combinations  of  letters  and  numbers  beginning  with  a  letter, 
are  simple  to  use.  You  can  assign  a  variable  of  this  type  to  any 
number  within  the  computer's  numerical  range.  The 
Spectrum  ignores  spaces  within  variable  names,  and  does 
not  distinguish  between  small  and  capital  letters  (so  a$  is  the 
same  as  A$). 

By  the  way,  as  you  probably  know,  the  computer  uses 
scientific  notation  to  display  large  numbers,  with  the  number 
as  a  single  digit  and  up  to  eight  decimal  places,  followed  by 
the  letter  E  (for  exponentiation)  and  the  power  of  ten  to 
which  the  number  is  to  be  multiplied.  Enter  and  run  the 
following  demonstration  which  shows  the  variable  A  in  use, 
being  assigned  to  a  number  which  is  being  multiplied 
repeatedly  by  10,  and  then  printed. 

10  REM  SCIENTIFIC  NOTATION 
20  LET  R-1S34. 

30  PRINT  P 
4.0  LET  P  =  i 
50  CO  TO  3© 


1234 

12340 

123400 

1234000 

12340000 

1  x  3  4  E 1 3 
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1. 2-3 4-E+S 
X.  234-E +10 

1 . 234- E  +  11 

1 . 234- E+12 

1. 234- E  4- 13 
i.  234-E  +  14- 
1  ■  234-E +  15 

1. 234-E  +  16 

1. 234- E  +  17 

1 . 234- E +  13 

1. 234- E  +  12 
i  .  234-E +23 
1 »  234-E +21 

1 . 234- E +22 

1. 234- E  +  23 
1  =  234-E +24- 


Note  that  after  the  number  has  eight  digits  (12340000)  it 
is  printed  as  a  number,  a  decimal  point,  more  numbers  after 
the  decimal  point,  the  letter  E  and  a  power  of  10.  Try  and 
predict  how  long  this  program  will  run  until  it  exceeds  the 
maximum  number  possible  on  the  computer,  then  run  it  until 
it  crashes  to  see  if  you  were  right. 

Looking  at  the  listing  tells  us  another  couple  of  things  about 
variables.  The  variable  is  assigned  by  just  entering  the  name 
of  the  variable  (in  this  case,  A),  preceded  by  the  word  LET, 
and  followed  by  an  equals  sign,  and  the  value  which  we  want 
assigned  to  the  variable.  If  we  said  LET  A  =  99,  then  following 
this  with  PRINT  A  would  produce  99.  Line  40  looks  a  little 
odd.  The  asterisk  (*)  stands  for  multiply  in  BASIC.  Line  40 
seems  to  be  saying  that  A  is  equal  to  10  times  itself,  which 
—  in  terms  of  standard  arithmetic  —  is  not  true.  This  is, 
however,  the  way  the  assignment  (LET)  statement  is  used  in 
BASIC. 
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String  variables 

String  variables  are  a  letter,  followed  by  a  dollar  sign.  Enter 
LET  A$  =  "HELLO",  press  ENTER  then  PRINT  A$,  ENTER, 
will  give  you  HELLO.  You  can  put  anything,  including 
numbers,  symbols,  punctuation  marks  and  letters  within  the 
quote  marks,  to  be  assigned  to  a  string  variable.  A  series  of 
letters  and  whatever,  within  quote  marks  in  this  way,  is 
known  as  a  string. 


Crickets 

There  is,  strange  to  say,  a  correlation  between  the 
temperature  and  the  number  of  times  a  cricket  chirps  each 
minute.  The  following  program  which  shows  long  variable 
names  in  action,  converts  the  number  of  chirps  per  minute 
into  the  temperature,  in  degrees  Fahrenheit.  Enter  and  run  it  a 
few  times.  Note  that  the  variable  chirp  is  set  equal  initially  to 
80  in  line  20.  This  is  converted  into  the  variable  temperature 
in  line  30,  and  this  latter  variable  is  used  in  the  PRINT 
statement  in  line  40.  The  variable  chirp  is  incremeneted  by  a 
random  number  between  one  and  seven  in  line  60,  there  is  a 
short  delay  (lines  70  and  80}  and  then  the  program  returns 
to  line  30  to  go  through  the  whole  process  again.  It  will  run 
for  a  long,  long  time  (until  you  exceed  the  highest  possible 
number  the  computer  can  cope  with}  if  you  do  not  interrupt 
its  running  with  the  BREAK  key. 

THE  TEMPERATURE  XS  5S 
WHEN  THERE  ARE  ST  CHIRPS 

THE  TEMPERATURE  XS  S3 
UHEN  THERE  ARE  9©  CHXRP5 

THE  TEMPERATURE  XS  S3 
UHEN  THE.RE,  RRB  CHIRPS 

THE  TEMPERATURE  IS  64 
UHEN  THERE  ARE  9S  CHIRPS 

THE  TEMPERATURE  XS  S5 
UHEN  THERE  ARE  9B  CHIRPS 
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1©  REM  CHIRP  CONVERTER 
20  LET  CHIRPsCB 
30  LET  TEMPERATURE=INT 
4) +4© . 5} 


(  iCH IRP 


40  PRINT  '“THE  TEMPERATURE  IS 
**;  INK  2; ; TEMPERATURE 

50  PRINT  “WHEN  THERE  ARE  “>  IN 
K  2;  CHIRP;  INK  B;  "  CHIRPS” 

6©  LET  tHIRP  =  CHIRP+XMT  i  RND  *7 1 
7©  FOR  <J  =  1  TO  10© 

©0  NEXT  U 
9©  POKE  23692,.  -1 
10©  <30  TO  3© 


Although  it  takes  a  little  longer  to  type  in  long  variable  names, 
these  have  a  clear  advantage  over  use  of  names  like  A,  B  and 
C2.  You  know,  without  having  to  refer  back,  what  each 
variable  represents.  Here  is  another  program  which  uses  two 
variable  names  to  help  make  it  clear  what  is  going  on.  Enter 
and  run  this. 


1© 

2© 

30 

50 

60 

ER 

70 

MBER 

30 

90 


REM  **  VARIABLES 

LET  U$="THE  NUMBER  IS  '* 

L*?T  NUMBER  =3 
PRINT  NUMBER 

PRINT  '  "THE  SQUARE  OF**.;  NUMB 
PRINT  TAB  5; ”15  NUMBER *NU 

PRINT  '"AND  THE  SQUARE  ROOT 
PRINT  "IS  ";SOR  f NUMBER > 


To  summarise: 


•  Numeric  variable  —  This  can  have  any  name,  so  long  as  it 
starts  with  a  letter  and  does  not  contain  punctuation  or 
symbols., 

•  String  variable  —  This  is  a  letter  followed  by  a  dollar  sign, 
which  is  assigned  to  anything  within  quote  marks.  All 
variables  are  assigned  by  use  of  a  LET  statement,  followed 
by  the  name  of  the  variable,  an  equals  sign,  and  then  the 
value  to  be  assigned  to  the  variable. 
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INPUT 

The  INPUT  statement  is  used  to  get  information  from  a  user 
while  a  program  is  actually  running.  The  computer  stops 
when  it  comes  to  an  INPUT  statement  and  waits  for  an  entry 
of  some  kind  from  the  keyboard  before  it  will  continue  with 
the  execution  of  the  program. 


Enter  and  run  the  following,  which  shows  numeric  INPUTS  in 
action.  The  program  will  wait  for  you  to  enter  one  number, 
then  press  ENTER,  then  wait  for  another  number.  After  you 
have  pressed  ENTER  again,  it  will  print  the  sum  of  the  two 
numbers. 


REM  **  input  ** 
20  INPUT  X 
30  PRINT  t X 
4-0  INPUT  y 
50  PRINT  , y 
60  LET  z  =x 
70  PRINT  , 

80  PRINT  ,  Z _ 

00  PRINT 


4-6S 


7  IS 


This  is  OK  so  far  as  it  goes,  but  you  would  not  have  known 
what  to  do  when  you  ran  the  program  unless  you  had  read  it 
in  this  book.  There  is  a  simple  way  to  rectify  this,  by 
programming  in  user  prompts.  The  preceding  program  can 
easily  be  rewritten  so  that  the  user  has  no  doubt  as  to  what  he 
or  she  is  meant  to  do. 


10  REM  it*  input  ** 

20  INPUT  "Give  me  a  number 
30  PRINT  * X 

4-0.  INPUT  "find  another  •*;  y 
50  PRINT 
60  LET  z=x+y 
70  PRINT  ,  ‘ 

80  PRINT 
90  PRINT  , 


X 


*»  • 


Running  this  shows  that  the  computer  prints  up  the  words 
within  the  quote  marks,  then  waits  for  the  input. 

Note  that  many  of  the  commands  used  to  control  PRINT 
output  can  be  used  with  INPUT,  as  can  be  seen  in  the  next 
program. 


Combat 


5  REM  $£  Combat  ** 

6  POKE  23600..  100 
10  LET  score=0 

15  FOR  j=l  TO  20 

30  PRINT  RT  1,8;  INK  j/3; "GO  O 

L’ 16 30 r INjs’diT  INK  j/3;  "Enter  a  numb 
e  r  from  1  to  10  **;a 

4.0  IF  a<l  OR  a  >10  THEN  GO  iO  3 

0 

se  PRINT  RT  10,0;  INK  3; “Youf 
number  is  " ;  a ; RT  12,6;  INK  l; "Sc 
ore  is  score 

60  FOR  0=1  TO  4- 

70  LET  b  =  INT  fRN£>*10)  +1 

60  PRINT  RT  3,3;  INK  2;  b;  ”  “ 

85  FOR  JB*1  TO  10:  BEEP  .01,3.5 
*» ;  NEXT  m 

©0  IF  b=a  THEN  GO  TO  110 
100  NEXT  g 

110  IF  a  =  b  THEN  LET  score  as  core 
+  1:  PRINT  RT  14-,6;  INK  4-;  "Ue  t  L  d 
one  “ 

140  IF  a  Ob  THEN  PRINT  PTT  14,  B,' 
INK  0;  FLRSH  i; “Bad  luct" 

150  PRINT  RT  12.6;  INK  2; “The  s 
core  is  “;score 
160  IF  SCO  re =5  THEN  GO  TO  250 
170  FOR  t=l  TO  20 

180  BEEP  .01,2it:  BEEP  .01.20-t 
:  NEXT  t 
190  CLS 
200  NEXT  j 

210  PRINT  BRIGHT  1;  INK  2; “The 
game  is  over" 

220  PRINT  FLRSH  1,  BRIGHT  1;  IN 
K  2; "find  you  only  scored  “; score 
230  PRINT  '  INK  1; "Your  rating 
is  “ J s core s . 0S; “  percent" 
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24-0  STOP 

2S0  PRINT  INK  RND*6;  FLASH  1;TA 
B  4; "You  did  it 

260  FOR  a:l  TO  4:  BEEP  . Ol^RNOt 
50:  PAUSE  3:  NEXT  M 
270  PRINT  INK  RND*6;  FLASH  1; Tfi 
B  8;  "You  win  ‘  »  *’ 

2©0  POKE  23692  + — 1 
290  GO  TO  250 


Go  number  1 


5 


Your  number  is  3 

The  score  is  0 
Bed  lucr 


In  COMBAT,  you  select  a  number  between  one  and  ten.  The 
computer  selects  up  to  four  numbers  between  one  and  ten.  If 
any  of  them  is  the  same  as  yours,  your  score  is  increased  by 
one.  If  you  get  a  score  of  five,  within  your  20  goes,  you  win. 
If  not,  you  fail  and  get  a  percentage  rating.  Once  you've  run 
the  program,  come  back  to  the  book  to  go  through  it  line  by 
line.  Although  the  program  is  fairly  trivial,  running  it,  then 
following  through  the  explanation  will  increase  your 
knowledge  of  several  aspects  of  BASIC,  and  —  of 
course— shows  INPUT  in  action. 

5  Title. 

6  Puts  a  'pip'  into  key  presses. 

1 0  Sets  the  variable  score  to  zero. 

15  Starts  the  master  FOR/ NEXT  loop  to  count  your 
goes. 

20  Prints  the  go  number. 
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30 


Accepts  the  input  for  variable  A,  using  J  to  set 
the  colour. 

40  Checks  that  the  input  is  legal. 

50  Prints  out  the  number  chosen,  and  the  score. 

Note  that  PRINT  statements  may  be  'chained'  in 
this  way,  with  semi-colons  and  the  use  of  AT  or 
TAB. 

60—100  Generates  up  to  four  numbers.  After  each 

number  is  generated  (line  70),  it  is  printed  (line 
80)r  there  is  some  sound  (line  85),  and  checked 
against  the  player's  number  (line  90), 

110  Score  is  increased  by  one  if  the  guess  was 
correct  and  the  program  prints  WELL  DONE. 

1 40  Prints  BAD  LUCK  if  the  guess  is  incorrect 
1 50  Reprints  the  score. 

170—180  Short  delay  with  BEEPs  before  next  move. 

1 90  Clears  the  screen, 

200  The  end  of  the  master  FO R /  N  EXT  loop . 

210—240  End  of  game,  if  you  lose. 

250-290  End  of  game,  if  you  win. 


Compound  Interest 

This  next  program  to  show  the  INPUT  statement  in  action 
again,  also  shows  the  use  of  explicit  names  for  variables, 
which  make  it  easier  to  understand  what  is  going  on.  You 
may  well  want  to  save  this  program  on  cassette,  as  it  has  a 
degree  of  practical  application. 


10  REM  simple  rno  compound 

20  REM  INTEREST 

30  INPUT  INK  1;TRB  6; “PRlNCIPft 
I _?  **;  PRINCIPAL  _ 

4-0  INPUT  INK  2/TRB  S;  “INTEREST 
?  "/INTEREST 

80  INPUT  INK  4./TRB  4;  “FOR  HOU 
MRNY  YEARS?  **  ;  YEARS 

SO  PRINT  INK  2;  "YEfiR"; TAB  7/  “& 
IMPLE“ ; TAB  17; "COMPOUND" /TAB  27; 
*’  D  IFF  .  “ 


62 


90  POKE  23692,. -1 

A©0  .PRiHI  ink 
110  For- h = itovears 

120  LET  SIMPLE ^PRINCIPRL +M *PR IN 
C IPfiL * < INTEREST /100) 

130  LET  COMPOUND  =  INT  (100*-PRINC 
2PRL* ( 1+ INTEREST ✓100) +  M> ✓  l©©" 

INT  (100*  (COMPOUND 
-SIMPLE* -  005)  )  /100 

260  PRINT  MjTRB  7; SIMPLE. TfiB  27 
;  COMPOUND..  TAB  27;  DIFF 
170  NEXT  M 


YEAR 


SIMPLE 


GMPOUNO 


OIFF  . 


2 

116.5 

117.18 

0.68 

3 

124. .  ?S 

126 . 34- 

2.09 

4- 

133 

137.31 

4 . 31 

s 

14.1.25 

14-6 . 64 

7 . 39 

§ 

14.9 .5 

160.9 

11.4 

7 

157.75 

174 . 17 

16 . 42 

166 

166 . 54 

2  S  .  B  4 

o 

174.  .25 

204 . 1 

29.65 

10 

162.5 

220.94 

38.44 

1  1 

190 . 75 

239 . 17 

46  .42 

12 

199 

253.9 

59.9 

This  program  works  out  compound  and  simple  interest,  for  a 
principal  and  interest  rate  you  determine,  over  the  number  of 
years  you  decide.  The  example  uses  a  principal  of  $100,  at 
8.25%  over  12  years. 

To  stop  a  program  during  a  string  INPUT  (BREAK  does  not 
operate  during  INPUTS),  use  cursor  left  (SHIFT  5)  or 
RUBOUT  (SHIFT  0)  to  get  the  cursor  out  of  the  quotes,  then 
type  in  STOP  (SHIFT  A)  followed  by  NEWLINE.  If  you  are  in 
a  numeric  INPUT  without  quotes,  just  type  STOP  (SHIFT  A) 
followed  by  ENTER.  In  both  cases  the  program  stops  with 
report  9. 

It  is~ useful  to  be  able  to  reject  invalid  INPUTS,  before  they 
cause  a  program  to  crash. 

If  you  invite  a  user  to  have  another  go,  analyse  his  or  her  reply 
as  follows: 


63 


555  INPUT  "DO  YOU  WANT  ANOTHER 

GO?  ";R* 

555  IF  R*fl>^"Y"  THEN  RUN 

There  is  a  law  somewhere  that  says  the  user  will  respond  by 
pressing  only  ENTER  —  leaving  you  with  a  nu!!  INPUT.  So 
there's  no  such  thing  as  R$  (1 )  —  it  does  not  exist,  as  the 
computer  will  very  quickly  tell  you  in  the  form  of  an  error 
report! 

Here  is  one  method  of  preventing  this: 

350  DIM 

555  INPUT  “DO  YOU  UftNT  ANOTHER 

^556  IF  THEN  RUN 

Because  R$  has  previously  been  DIMensioned,  it  will  have  to 
consist  of  one  character,  no  matter  what  is  entered.  !f  only 
ENTER  is  pressed  then  R$  wi!!  be  a  space  since  that  is  what  is 
placed  in  R$  after  D!M  and  a  nu!!  INPUT  wil!  not  change  it  If 
the  INPUT  is  several  characters  long,  then  there  is  only  room 
in  R$  for  the  first  character,  !f  this  character  is  "Y"  then  the 
program  will  RUN  for  another  go.  This  method  has  the 
advantage  that  if  the  user  enters  a  very  long  reply  such  as 
"YES  PLEASE  NICE  KIND  COMPUTER,  I  WOULD  LIKE 
VERY  MUCH  TO  HAVE  ANOTHER  GO  AT  YOUR  GREAT 
GAME  PROGRAM"  (very  unlikely!),  there  is  no  need  to  store 
it  all  in  memory.  It  is  also  very  usefu!  if  you  GO  TO  or  do 
nothing  that  would  CLEAR  the  variables,  thus  storing  the 
entire  reply  unnecessarily.  The  second  method  is  more 
conventional  and  uses  one  program  line  less  than  the 
previous  routine,  although  it  does  place  the  entire  reply 
unnecessarily  in  memory: 

550  DIM 

555  INPUT  “DO  YOU  WANT  ANOTHER 
GO?  M;R$ 

555  IF  CODE  R*~CODE  THEN  RU 

N 


The  program  explains  itself  really  —  if  the  first  character  of 
the  reply  has  a  CODE  that  is  the  same  as  the  CODE  of  Y  (Le.  it 
is  Y)  then  the  program  RUNs  again.  Null  INPUTS  are  rejected 
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as  meaning  the  user  does  not  want  to  play  again,  since 
merely  pressing  NEWLINE  gives  the  empty  string  and  the 
CODE  of  the  empty  string  is  0  like  a  space. 

Checking  the  first  letter  of  a  user's  INPUT  is  fairly  easy  as 
you've  just  seen.  It  becomes  a  bit  more  difficult  when  you 
want  to  check  an  entire  INPUT,  e.g.  to  see  if  the  user  has 
entered  any  punctuation  marks  or  has  included  letters  in  a 
numeric  INPUT.  Let  us  look  at  alphabetic  INPUTs  first.  The 
relational  operators  <,>,>  -  ,<  -xp><  are  very  useful  in 
this  case.  Take  the  case  of  an  INPUT  where  a  word  is  strictly 
required  and  nothing  else  must  be  entered. 


1&  INPUT  R$ 

15  IF  THEN  GO  TO  10 

20  FOR  R=1  TO  LEN 

30  IF  R$(R)<" R"  OR  Rt(R)  >l,Z°  T 
HEN  GO  TO  10 
4.0  NEXT  R 


Line  15  ensures  that  null  INPUTS  (i.e.  just  ENTER  pressed) 
are  rejected.  The  loop  starting  at  line  20  scans  the  entire 
INPUT  string  character  by  character  and  if  a  character  is 
found  which  is  not  a  letterThen  you  are  instructed  to  enter  the 
string  once  again  because  the  program  jumps  back  to  line 
10.  As  it  stands,  the  program  will  not  allow  spaces  between 
words. 


Change  line  30  like  this  to  allow  spaces: 


30  IF  (HPIM  OR  '  R*  <R) 

RND  R*  '  -  THEN  GO  TO  1© 


You  can  easily  extend  this  idea  to  allow  punctuation  marks, 
letters  and  spaces  if  you  like  (i.e.  numbers,  keywords, 
symbols  etc.  are  not  allowed)  by  extending  the  idea  in  line 
30.  Onty  slightly  more  difficult  is  detecting  a  given  word  in 
an  IIVJPUT,  e.g.  if  you  had  a  line  at  the  tail  end  of  a  program 
inviting  the  user  to  have  another  go  at  the  program  and  if  the 
user  replied  "YES"  then  the  program  re-ran.  ft  is  a  fairly 
simple  thing  to  put  the  INPUT  in  a  loop  and  slide  the  word 
along  like  this: 
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7010  INPUT  "ANOTHER  GO?  "  ;  ff  * 

7020  FOR  P=1  TO  LEN  A$~2 

7030  IF  R*fA  TO  fl+2)  =1'VES"  THEN 

RUN 

7040  NEXT  R 
70S©  STOP 

If  you  entered  "YES"  or  "YES  PLEASE"  the  program  will 
re-run  as  required.  If  a  word  whose  length  is  less  than  the 
length  of  the  search  word  (except  the  empty  string)  is 
INPUTed  then  this  will  cause  an  error  because  of  line  7030 
which  expects  the  INPUT  to  be  at  least  equal  to  the  search 
word.  The  empty  string  is  alright  because  then  LEN  A$  is  0, 
making  line  7020  FOR  A  =  1  TO  0,  so  the  string  is  totally 
bypassed,  and  the  problem  does  not  arise.  Try  also  entering 
"YESTERDAY"  —  the  routine  reruns  because  it  has  detected 
the  three  letters  "YES".  What  is  needed  is  a  routine  that 
detects  if  the  character  on  either  side  of  those  three  letters  is 
anything  other  than  a  letter.  We  need  to  be  careful  doing  this 
because  we  cannot  examine  the  character  before  and  after 
the  three  letters  "YES"  if  they  occur  at  the  beginning  or  at 
the  end  of  an  INPUT  because  they  do  not  exist  and  to 
attempt  to  examine  them  would  cause  a  subscript  error. 
There  follows  a  routine  which  makes  allowances  for  this,  by 
adding  dummy  characters  at  the  start  and  end  of  A$. 


7020  INPLfT  "RNOTHER  SO? 
702S  LET  " 

7020  FOR  A  =2  TO  LEN  A$-3 
7030  IF  TO  B+2.»  ='!Y£ 

<"ft"  OR  flf 

fflf  (R+3.1  <"fi"  OR  A«  ffl+3)  s 
N  RUN 

7040  NEXT  ft 
70S©  STOP 


S'*  AN©  C 
7  ••  J  AN© 
THE 


The  routine  allows  all  lengths  of  INPUT  up  to  the  maximum 
length  that  a  string  may  be.  If  you  want  to  change  the  search 
word  in  a  program  then  it  may  be  worth  assigning  it  to  a 
variable  or  having  an  INPUT  somewhere  in  the  program  for 
the  search  word.  You  will  have  to  make  the  following 
modifications  to  the  routine  to  use  a  different  search  word: 


702©  INPUT  "ENTER  SEARCH  WORD"; S 
$ 

7©20  INPUT  “ENTER  SENTENCE” ; A$ 
7040  LET  R*=”  " 
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-7050  1 _ET  LS^LHN  5$ 

7050  LET  LR=LEN  ft* 

7070  FOR  ft =2  TO  Lft-LS 
7 030  IF  ft*fft  TO  ft+LS-±> =5*  ftNfr  tf 
ft* tft-IJ < "ft"  OR  ft*  fR-l>  >"Z"J  ftMS 
(RSffl+LS)  <,<fl,‘  OR  ft*  (RfLSj  >  "Z'J  T 
HEN  RUN 
70S©  NEXT  ft 


If  the  routine  is  a  bit  too  long  then  provided  you  are  using  the 
same  search  word  every  time  then  you  can  avoid  using  S$ 
and  LS  and  spell  out  the  search  word  in  full  every  time  it  is 
used,  and  replace  all  references  to  LS  with  the  length  of  the 
search  word.  See  the  example  using  "YES"  above. 

Let  us  now  look  at  another  type  of  INPUT  that  is  commonly 
used  in  games  —  both  grid  type  games  and  board  games  — 
that  is  an  INPUT  involving  coordinates  as  you  would  find  on 
some  maps.  For  instance  you  might  have  a  board  laid  out  like 
this: 


1  2  3  4  5 


The  coordinates  are  usually  entered  in  the  form  of  a  letter 
followed  by  a  number  e.g.  C3  if  you  are  referring  to  one 
square  as  in  a  Hunt  the  Hurkle  type  of  game  or  C3B4  if  you 
are  using  from-to  coordintes  in  a  board  game  such  as 
draughts.  If  you  have  decided  that  the  coordinates  are  to  be 
entered  in  the  form  of  a  letter  followed  by  a  number  then  the 
chances  are  that  sooner  or  later  someone  will  —  whether 
deliberately  or  accidentally  —  enter  the  coordinates  in  the 
wrong  order  and  foul  up  the  program.  This  routine  will 
automatically  detect  if  the  two  characters  of  a  coordinate 
have  been  entered  in  the  wrong  order  and  sort  them  out.  It 
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applies  to  the  board  layout  above  and  to  modify  it  for  other 
ranges  of  characters,  simply  change  the  characters  in  quotes 
in  lines  30  and  40.  Line  50  has  merely  been  included  so 
that  you  can  see  the  effect  of  the  routine  if  any. 


10  INPUT  ft* 

20  IF  LEN  ft* <2  THEN  GO  TO  10 

as  let  ft*=fl*r  to  a> 

30  IF  ft*  Cl.>  >="!“  ftNO  ft*ti.»  <="S 
°  ftND  ft*  (2)  >  ="ft"  PN£>  ft*tJ2>  {=“£** 
THEN  LET  ft*=ft*  i2)  +RS  H) 

4-0  IF  ft*fl )  <"fl"  Oft  ft*lU>''E“  O 
R  fl*  (2)  <’,1"  OR  ft*  (2>  >  *'5'*  THEN  GO 
TO  10 

50  PRINT  ft* 


The  routine  is  very  quick  to  RUN.  It  is  a  very  difficult  routine 
to  crash  but  I'm  sure  some  clever  reader  will  find  a  way.  If  you 
do  find  a  way  of  beating  the  routine  then  modify  the  routine 
to  prevent  that  error  happening  again. 


The  routine  for  a  four  character  coordinate  is  somewhat  more 
complex.  The  idea  of  this  INPUT  is  that  you  can  enter  the 
number  of  the  square  you  are  moving  from  and  the  square 
you  are  moving  to  in  one  go,  e.g.  E3D4  would  mean  that  you 
moved  a  piece  from  square  E3  to  square  D4.  Let  us  first  of  all 
arrange  the  letters  and  numbers  into  order. 


10  INPUT  ft* 

20  IF  LEN  ft*  <4-  THEN  GO  TO  10 
30  LET  R*=fi*f  TO  4.) 

4-0  IF  fi*(l)>=*,l"  ftND  ft*tl}<»**5 
"  AND  ftND  ft*(2Jos”E" 

THEN  LET  ft* (  TO  2) *ft* t Si +ft* ( D 
50  IF  R*(3)="l“  RND  {=''5" 

ftND  R*<4-J>  =  ”R"  ftND  R*(4><ss"E"  T 
HEN  LET  ft*  (3  TO  1 

60  IF  ft* (11 <”ft“  OR  fl*(l}>"E"  O 
R  ft*  1 2 )  <  **  1“  OR  ft  *  ( 2  )  >  *•§**  OR  R*(3 
><■*»••  OR  ft*  (  3>  >  “E”  OR  ft*  (  4  )  <  ”  1  *’ 
OR  ft*  (4.)  >  ”5”  THEN  GO  TO  10 
70  PRINT  R* 


Note  that  you  can  shorten  these  two  routines  by  using  the 
DIM  command.  In  the  first  program  you  can  add 


5  DIM  A$(2) 
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and  delete  lines  20  and  25.  For  the  second  program  add 
5  DIM  A$(4) 


and  delete  lines  20  and  30.  What  both  versions  achieve  is  to 
ensure  that  the  string  A$  is  neither  shorter  nor  longer  than  the 
required  length.  If  you  enter  an  INPUT  which  is  longer  than 
four  characters  in  the  second  routine,  then  the  rest  are 
ignored.  If  shorter  than  four  characters  then  spaces  are  added 
if  you  have  line  5  added  (then  rejected  in  line  60)  or  rejected 
in  line  20  if  you  are  using  the  unmodified  version.  Having 
sorted  out  the  letters  and  numbers  let  us  look  at  sorting  out 
legal  and  illegal  moves.  You  will  need  to  look  at  the  example 
board  a  couple  of  pages  back  for  this.  Suppose  we  have 
uncrowned  draughts  piece  on  square  E3.  We  need  to  work 
out  the  legal  moves  from  there.  An  uncrowned  draughts 
piece  can  only  move  one  square  forward  in  a  diagonal 
direction.  The  square  it  may  end  up  on  are  D2  or  D4.  Before 
reading  on,  can  you  work  out  the  relationship  between  the 
coordinates? 

Since  the  piece  can  only  move  forward  one  square  at  a  time, 
it  has  to  end  up  on  a  square  whose  letter  is  alphabetically 
nearest  to  E.  Now  on  your  computer,  the  CODEs  of  letters 
that  follow  each  other  alphabetically  step  up  or  down  by  1 ,  so 
that  the  CODE  of  D  is  1  less  than  the  CODE  of  E.  Therefore  rf 
the  CODE  of  the  from  square  letter  is  not  1  greater  than  the 
CODE  of  the  to  square  letter  then  it  is  not  a  legal  move.  The 
number  of  the  from  square  must  be  1  greater  or  1  less  than 
the  number  of  the  to  square,  so  we  end  up  with: 

65  IF  (CODE  A* <35+ 

1.1  OR  (CODE  A$(2>  OCODE  &$(*}+ 1) 

OR  (CODE  P$ (2) =CODE  A* (A) -1)  TH 
EN  GO  TO  10 

Obviously  you  will  need  to  adapt  these  routines  to  suit  your 
programs  and  they  are  only  intended  to  show  you  the  basis  of 
routines  that  you  may  like  to  incorporate  into  your  programs. 
They  also  help  to  demonstrate  the  approach  you  need  to  take 
to  solve  problems  of  this  kind.  For  what  it's  worth,  we 
suggest  you  try  to  follow  these  guidelines: 
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(i)  Work  out  exactly  what  you  want  to  accomplish. 

(ii)  Work  out  exactly  what  is  permitted,  and  some  of 
the  things  which  are  not  allowed  (e.g.  the  empty 
string). 

(iii)  How  can  you  prevent  these  happening,  or  reject 
them  when  they  do  happen? 

(iv)  Quickly  work  out  in  your  head  whether  your 
routine  does  what  you  think  it  will  by  using  it 
with  a  couple  of  examples. 

(v)  If  you  are  happy  with  your  routine  enter  it  into 
the  computer  and  try  it  out  with  some  permitted 
values  or  characters  to  check  whether  there  is  a 
bug  that  prevents  these  values  being  entered. 
When  happy  with  this,  try  out  the  routine  with  all 
sorts  of  INPUTS  {for  example,  try  entering  a 
non-existent  coordinate  such  as  F9  in  the 
routines  above).  You  are  now  ready  for  the  most 
important  test. 

(vi)  Let  a  friend  loose  on  the  routine  with  orders  to 
make  a  fool  of  the  routine.  The  above  routines 
do  have  a  fallacy  but  I'm  not  telling  you  what  it 
is— that's  an  exercise  for  you. 

Finally,  let's  look  at  numeric  INPUTS.  Clear  the  computer 
with  NEW  and  enter  the  following: 


10  INPUT  n 
20  CO  TO  10 


RUN  this  little  program  and  see  if  you  can  cause  it  to  crash  in 
any  way;  it  shouldn't  be  too  difficult.  Try  entering  a  letter;  try 
entering  STOP;  try  entering  a  number  too  large  or  too  small 
for  the  computer  to  handle;  or  try  entering  a  keyword  or 
arithmetic  sign  such  as  "  + 

Arithmetic  signs  cause  the  computer  to  display  a  syntax  error 
marker,  although  it  does  not  stop  the  program.  Keywords 
and  symbols  also  cause  this  to  happen,  although  letters  cause 
the  program  to  stop  with  error  code  2,  which  means  that  an 
undefined  variable  has  been  used.  Variable?  Yes  —  when  you 
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enter  a  letter  in  response  to  a  numeric  INPUT  the  computer 
thinks  you're  entering  a  variable  and  this  can  sometimes  be 
very  useful.  With  the  same  program,  enter  1  on  the  first 
INPUT,  then  enter  A  the  second  time,  and  it  is  acceptedl 
What  the  computer  has  done  is  look  up  the  value  of  A  and 
assigned  it  to  A  —  in  other  words  it  hasn't  changed  the  value 
of  A.  Now  enter  STOP.  The  program  stops  on  an  error 
message.  Now  try  typing  in  PRINT  A,  and  you  get  the 
number  1,  so  the  program  has  stopped  before  updating  the 
value  of  A.  In  fact  if  you  do  manage  to  crash  a  numeric 
INPUT  then  in  general  the  computer  retains  the  previous 
value  of  the  variable.  Not  that  it's  all  that  useful,  but  under 
certain  circumstances  if  you  do  manage  to  restart  the 
program  then  the  variable  does  have  a  value. 

The  easiest  way  to  get  around  these  problems  is  to  use  string 
INPUTS  and  evaluate  using  VAL.  Try: 

10  INPUT 

20  i_E T  R=UAL  R$ 

30  PRINT  A 
4.0  GO  TO  10 


You  should  find  this  quite  easy  to  crash,  and  many  things  true 
of  numeric  INPUTS  seem  to  happen  with  this  little  routine. 
However,  the  advantage  of  this  method  is  that  it  does  not 
crash  until  you  apply  VAL  if  there  is  an  error.  You  can  process 
the  string  before  applying  VAL  after  INPUTing  it  and  spot  or 
remove  errors  before  they  crash  —  that  is  you  can  process 
the  string.  The  thing  to  remember  is  that  VAL  can  work  with 
anything  numeric,  not  just  numbers.  Try  the  following: 

PRINT  VAL  "RND" 

PRINT  VAL  "SGN  -7" 

PRINT  VAL  "A*2"  (this  only  works  if  you  have 
previously  defined  A  of  course) 

PRINT  VAL  ,JCOS1" 

Undefined  variable  names  are  the  curse  of  VAL,  along  with 
non-numeric  statements  or  keywords  or  symbols.  These  have 
to  be  weeded  out  before  you  can  apply  VAL.  The  easiest  case 
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is  that  where  only  numeric  INPUTS  are  allowed  and  you  can 
do  that  like  this: 

ID  INPUT  R * 

S0  FDR  F=1  TO  LEN 
3D  IF  R$tF)<"D"  OR  R*tFi >"*"  T 
HEN  GO  TO  ID 
40  NEXT  F 
50  LET  B=UBL  B* 

60  PRINT  B 

Can  you  see  straight  away  what  would  defeat  the  routine? 
Our  old  friend  the  empty  string  of  course,  which  would  make 
the  loop  FOR  F  =  1  TO  0,  so  it  would  be  totally  bypassed 
and  useless  so  you  have  to  add  15  IF  A$  THEN  GO  TO 
10.  The  routine  makes  you  enter  the  number  again  jf  you 
have  entered  anything  but  numbers.  You  can  extend  the  idea 
to  permit  arithmetic  symbols  and  variable  names  if  you  like, 
but  there  is  so  little  use  for  it  it  hardly  seems  worthwhile. 

30  IF  ( R*(F)  <a'D”  OR 
RND  (&$  tF)  O  “+"  RND  R*  s FJ  >'>'* 

THEN  GO  TP  10 

This  allows  you  to  enter  addition  symbols  and  exponentiation 
symbols.  To  permit  additional  functions  then  simply  add 
them  within  the  second  set  of  brackets  linked  together  by 
AND.  This  is  not  terribly  useful  but  you  may  find  a  use  for  it 
some  day. 


We'll  be  looking  at  VAL  and  other  string-processing  functions 
in  detail  a  little  later  in  the  book,  but  for  now,  we  need  to 
examine  commands  which  lie  at  the  heart  of  the  computer's 
power  to  'think'. 
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GO  TO 

One  important  ability  in  programming  is  to  be  able  to  branch 
to  different  parts  of  the  program  during  execution.  Without 
this,  the  program  would  always  run  from  the  lowest  line 
number  to  the  highest,  and  then  stop.  One  statement  which 
allows  you  to  move  around  the  program  at  will  is  GOTO.  The 
GO  TO  statement  consists  of  a  line  number  followed  by  the 
word  GO  TO  and  another  line  number,  or  followed  by  a 
calculation  (such  as  GO  TO  2*X,  or  GO  TO  200  +  340). 

If  the  computer  came  across  140  GO  TO  190,  it  would  jump 
immediately  from  line  number  140  to  line  190.  This  is  called 
an  unconditional  branch.  That  is,  it  is  a  jump  that  does  not 
depend  on  the  existence  of  any  condition.  Once  at  line  190, 
the  program  continues  to  execute  fn  order,  until  it  comes  to 
the  end,  or  comes  to  another  line  directing  it  somewhere  else. 

You  can  use  GO  TO  to  produce  programs  which  run  almost 
for  ever.  These  can  be  quite  effective,  especially  at  the  end  of 
a  game.  Run  the  following  to  see  this  in  action: 

10  PRINT  XNK  RN0*S; ", b«rv* 
won . . # " ; 

20  POKE  20592,-1 
30  BEEP  ,01/PNDf50 
4-0  GO  TO  10 
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IF.... THEN  GO  TO 

The  IF  statement  has  a  similar  function  to  GO  TO,  but  it  will 
only  reroute  the  program  IF  certain  conditions  are  fulfilled. 
This  creates  a  conditional  branch.  The  IF/THEN  statement  is 
made  up  of  a  line  number  followed  by  the  words 
IF/THEN /GO  TO  separated  by  a  relationship  which  must  be 
determined  before  leaving  the  line.  These  are  six  relation 
operators  which  can  be  used  to  compare  two  variables. 
These  are: 

-  equal  to 

>  greater  than 

<  less  than 

>  <  not  equal  to 

>  =  greater  than  or  equal  to 

<  =  less  than  or  equal  to 

These  operators  are  used  to  connect  the  IF..., THEN 
statements  to  form  the  condition  to  be  determined. 

Here's  an  example:  70  IF  Z>  =  10  THEN  GO  TO  100 

This  will  be  read  by  the  computer  to  mean  IF  the  value  of  the 
variable  Z  is  greater  than,  or  equal  to,  10  THEN  the  program 
will  branch  to  line  100.  If  Z  is  less  than  10,  the  program  will 
continue  normal  execution,  with  line  80. 

This  gives  the  computer  decision-making  power,  the  real 
source  of  a  computer's  apparent  ability  to  think. 

As  you've  probably  discovered,  the  computer  isn't  indecisive 
(unless  you  tell  it  to  be),  it  makes  a  firm  decision  every  time 
whether  or  not  to  do  something.  What  it  actually  does 
depends  on  what  you  tell  it  to  do,  usually  after  the  word 
THEN  in  the  line.  Let's  illustrate  this  with  a  simple  program  to 
print  out  the  number  you  have  just  entered  in  words  instead 
of  digits. 
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10 

INPUT 

INK  RNI>»6;  "Enter  a 

»  be  r 

1 

to  3 

a 

30 

IF 

a  =1 

THEN 

PRINT 

••one" 

4-0 

IF 

a  =2 

THEN 

PRINT 

1  two" 

50 

IF 

a  =3 

then 

PRINT 

“  three 

50 

GO 

TO 

10 

You  need  not  be  limited  to  one  condition  between  the  IF  & 
THEN.  To  take  the  example  above,  suppose  you  were  allowed  to 
go  home  at  five  o'clock  only  if  you'd  finished  your  work: 

IF  it's  five  o'clock  AND  you've  finished  your  work  THEN  go  home. 
When  you  want  to  join  two  or  more  condition  expressions  such  as 
"you've  finished  your  work",  you  can  use  three  connecting  words 
to  join  the  expressions.  These  are  AND,  OR  and  NOT.  If  you  have  a 
conditional  expression  with  AND  joining  the  two  parts,  then  the 
computer  only  does  something  if  both  parts  are  true.  If  itrs  five 
o'clock  but  you  haven't  finished  your  work  then  you  are  not 
entitled  to  go  home,  for  example. 

To  illustrate  TRUE  and  FALSE,  try  this  program: 

10  INPUT  3 
50  INPUT  b 

30  IF  B-l  RND  b-1  THEN  PRINT  94 

true11 

4-0  GO  TO  10 

Try  entering  different  values  and  see  the  results.  Try  changing  the 
values  in  line  30  to  see  what  effect  this  has.  Make  a  note  of  your 
answers  until  you  understand  what's  going  on. 

Let's  look  at  OR.  Think  of  OR  along  the  lines  of  IF  it's  five  o'clock 
OR  the  boss  says  you  can  leave  early  THEN  go  home— that  is  do 
something  when  one  of  the  alternatives  is  true.  More  correctly,  do 
something  when  at  least  one  of  the  alternatives  is  true,  because  it 
does  not  matter  how  many  are  true  (they  may  all  be)  as  long  as  at 
least  one  is  true.  So  you  go  home  at  five  o'clock  anyway,  but  you 
may  also  go  home  when  the  boss  says  you  may  —  either  fact 
entitles  you  to  go  home.  Try  experimenting  with  this  program  in 
the  same  way  as  you  experimented  with  the  previous  program. 
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10  INPUT  a 
20  INPUT  b 

30  IF  a  55 1  OR  bsl  THEN  PRINT  “  t 
rueM 

d©  GO  TO  10 

The  last  word  is  NOT.  It  doesn't  join  expressions  like  the  other  two, 
but  changes  their  meanings.  Study  this: 

IF  NOT  the  manager  has  said  you  can  go  home  THEN  stay  at  work. 

This  means  that  unless  you've  been  told  that  you  may  go  home  you 
must  stay  at  work.  What  happens  is  that  the  computer  looks  at  the 
expression  and  decides  that  if  it  isn't  true  then  it  does  something 
(for  this  purpose  ignore  the  NOT  for  deciding  what  is  true  and  what 

isn't).  That  is,  IF  NOT . THEN  is  true  when  whatever  follows 

NOT  is  false.  Something  is  done  only  when  a  condition  is  not  met. 
Try  this: 

10  INPUT  a 
2©  INPUT  b 

30  IF  a<>b  THEN  PRINT  ,‘trueh 
40  GO  TO  10 

This  may  confuse  you  at  first,  but  if  you  experiment  with  the  values 
of  A  and  B  you  will  notice  a  pattern  of  results  which  illustrate  the 
workings  of  NOT. 

You  may  have  noticed  that  we  have  used  the  =  symbol  in  all  the 
examples  so  far.  Remember,  this  is  only  one  of  six  relational 
operators.  Here  is  the  list  again  of  the  six  used  on  your  computer: 

<  is  less  than. 

>  is  greater  than. 

<  -  is  less  than  or  equal  to. 

>  =  is  greater  than  or  equal  to. 

<  >  is  not  equal  to  (or  is  anything  other  than) . 

=  equals,  is  the  same  as. 

Change  the  programs  so  that  you  use  all  of  these  RELATIONAL 
OPERATORS.  Play  around  with  the  programs  until  you  find 
yourself  able  to  predict  what  happens  each  time.  Try  combinations 
of  ANO,  OR  &  NOT  and  see  in  which  order  they  are  worked  out. 
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See  if  you  can  work  out  how  to  change  the  result  by  putting 
brackets  around  expressions.  Note  that  this  will  not  in  every  case, 
so  if  a  certain  expression  gives  problems,  leave  it  and  try  another 
one.  This  order  of  evaluation  is  called  priorities,  and  is  dealt  with  in 
detail  later  in  this  book. 

We  can  apply  conditional  expressions  to  strings  as  well  as 
numbers. 

10  INPUT  a  $ 

20  IF  a$<>‘TRED  BLOGGS"  THEN  N 

EU 

RUN  this  program  to  see  what  happens.  The  first  time  you  RUN  it, 
enter  the  name  FRED  BLOGGS  in  capital  letters.  The  program 
comes  to  a  halt  normally.  Pretty  unexciting.  RUN  it  again  and  this 
time  try  entering  your  own  name  (if  your  name  happens  to  be 
FRED  BLDGGS  then  enter  somebody  else's  name).  This  time  the 
program  will  self-destruct  because  of  the  NEW  in  line  20.  If  you 
substitute  your  name  or  a  code  number  for  FRED  BLOGGS  then 
you  will  have  a  program  that  will  only  work  for  you  or  those  that 
know  the  code,  and  self-destructs  if  anyone  else  attempts  to  use  it. 

Let  us  now  look  at  values  in  conditional  expressions.  First  of  all 
we'll  use  the  relational  operators.  You  will  find  that  true  is 
represented  by  1  and  false  by  0. 


ID  INPUT  b 
20  INPUT  b 
30  LET  x  =  fa=b> 
40  PRINT  x 
50  GO  TO  10 


You  don't  actually  need  the  brackets  in  line  30  but  they  help  to 
make  the  meaning  clearer.  The  expression  in  brackets  is  reduced  to 
either  0  or  1  —  which  one  depends  on  the  values  you  enter.  Try  this 
using  all  six  of  the  relational  operators  and  make  a  note  of  the 
results.  You  should  get  either  a  0  or  a  1  every  time  —  you  might 
think  that  this  is  a  bit  restrictive.  In  fact  since  this  value  of  0  or  1  can 
be  considered  as  a  number,  you  can  manipulate  it  as  you  would 
any  number.  The  best  way  of  manipulating  the  number  is  by 
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multiplying,  since  this  will  change  true  values  but  not  false  values 
(anything  multiplied  by  0  is  0),  Try  changing  the  program  to  this: 


10  INPUT  a 
20  INPUT  b 
30  L.ET  X  =  U  =  b)  *2 
4-0  PRINT  x 
50  GO  TO  10 


This  time  you  should  get  a  value  of  0  for  a  false  expression  and  2  for 
a  true  expression.  The  point  of  all  this  is  that  these  values  of 
conditional  expressions  are  numbers  and  can  be  treated  as 
numbers  and  this  is  very  useful.  There  follows  a  simple  game 
program,  BLOB  CATCHER,  to  illustrate  the  use  of  what  we've  just 
been  discussing. 


10  REM  *BLOB  CRT CHER * 

20  LET  3=0 
30  FOR  0  =  1  TO  S 

4.0  PRINT  RT  10,2*0;  INK  Us2j  <J 
50  NEXT  U 

BO  FOR  G  =  30  TO  1  STEP  -1 
70  PRINT  RT  5 >3;  INK  ©;  PAPER 
2;  FL.RSH  i;M  TIME  > "  ;  O;  SCORE* 

M  p  g  ■  II 

■'  S0  LET  R  =  INT  (RND^93  +1 
90  PRINT  RT  9,2*R;  FLASH  1;  IN 

O  '  ,lHu 

SI00  FOR  H=1  TO  24. 

110  BEEP  . 01,50/H 
120  LET  fi$  = INKEY* 

130  IF  THEN  GO  TO  170 

14.0  NEXT  H 
ISO  LET  G=G-1 

170  LET  S=S+(R*=STRJ  fl)  *R 
1S0  PRINT  RT  9.2*ft;"  ** 

190  NEXT  G 

200  PRINT  RT  5..  3;  INK  6;  PRPER 
2;  FLRSH  H  “  TIME  >  *' ;  0;  ’*  SCORE  > 
V  PRPER  6;  INK  2;  s ;  **  “ 

210  PRINT  RT  13,3;  FLfiSH  1;  INK 
0;  PRPER  6;  BRIGHT  1;  '‘THAT'S  RL 
L  i  FOLKS \  \ " 


The  idea  of  the  game  is  to  press  the  same  key  as  the  number  under 
the  moving  blob,  for  instance  if  the  blob  lands  on  3  then  you  must 
press  the  3  key,  and  you  will  score  the  number,  in  this  case  three  is 
added  to  your  score.  The  number  of  attempts  you  have  left  is 
continuously  displayed  on  screen  as  is  your  score.  Line  170  is  the 
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one  we're  interested  in  at  the  moment.  Here  if  STR$  A  {the  value  of 
A  converted  to  a  string  so  that  it  can  be  compared  with  the  key 
pressed)  is  the  same  as  the  key  pressed  then  the  logical  value  is  1 
because  the  expression  is  true.  Whatever  the  value,  it  is  multiplied 
by  the  value  of  A.  If  0  then  the  score  does  not  change.  If  1  then  the 
score  changes  by  1  *  A,  in  other  words  by  A.  The  score  is  counted 
by  the  variable  S.  The  number  of  attempts  left  is  counted  by  F. 

Let  us  now  move  to  look  at  values  in  conditional  expressions 
involving  the  logical  operations  AND,  OR  &  NOT.  X  AND  Y  have 
the  value  {  X  if  Y  is  true/non-zero 
(  0  if  Y  is  false/zero. 

X  &  Y  can  be  expressions  like  X  =  2orY  =  2*B.  One  common 
application  is  to  control  on-screen  movement.  Many  games  use  the 
cursor-arrow  keys  to  control  movement  on-screen.  This  is  one  way 
of  moving  an  object  left  or  right  along  the  screen: 

20  LET  X=2S 

20  IF  INKEY  $=2**5*'  ftND  X>1  THEN 
LET  X  —2 

30  IF  INKEY$aM8"  ftND  X  <30  THEN 
LET  Xa X+3 

4-0  PR  INT  ft T  21..  X..  INK  2.;  "JB" RT 

n ^  ^  ■  »  »• 

GO  TO  20 

This  moves  a  red  blob  two  columns  at  a  time  along  the  bottom  row 
of  the  screen.  You  can  do  the  same  thing  with: 


10  LET  X  =  15 

20  LET  XsX-dNKEYfs^S"  AND  X  >  2. 
.>  J2l(INKEY$  =  "8"  AND  X<30)*2 

4.0  PRINT  AT  21  ,X;  INK  2;  ;  RT 

21,  X;  “  ** 

50  GO  TO  2© 


Or  with: 

10  LET  X=15 

20  LET  X  =.X-  f 2  RND  INKEY  *~"5"  & 
ND  X>l)+(2  RND  INKEY*^'^’  RNO  X-i 

30) 

4-0  PRINT  AT  21, X;  INK  2;,,»”;RT 

21  ,x;'*  " 

50  GO  TO  20 
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The  point  to  note  with  the  last  two  programs  is  that  the  expressions 
in  brackets  take  the  value  of  the  number  before  the  first  AND  if  all 
the  expressions  after  the  AND  are  true.  Compare  these  with  X 
AND  V  which  we  have  just  discussed.  Here  X  is  a  number  (2  in  this 
case)  and  not  an  expression.  You  can  think  of  line  20  above  as: 

20  LET  X  =  X  -  (2  if  the  “5"  key  is  pressed  and  if  the  value  of  X  is 
greater  than  1 ,  otherwise  0)  +  (2  if  the  "8"  key  is  pressed  and  the 
value  of  X  is  less  than  30,  otherwise  0). 

You  might  think  why  go  to  these  complications  to  do  something 
that  could  be  done  equally  well  by  a  series  of  IF. ..  .THEN  lines. 
The  answer  is  that  used  properly  and  in  the  right  circumstances 
you  can  replace  several  program  lines  by  one  long  conditional 
expression  thus  saving  memory  and  possibly  making  the  program 
RUN  faster.  In  addition  when  you  become  more  familiar  with  these 
conditional  expressions  you  will  find  that  sometimes  they  can 
actually  clarify  listings  over  a  long  set  of  IF. .  THEN  statements. 

Let's  now  look  at  OR  in  operation. 

X  OR  Y  has  the  value  (1  if  Y  is  non-zero/ true 
(X  if  Y  is  zero/false 


Suppose  a  conductor  on  a  bus  wanted  a  program  to  let  him  know 
what  fare  to  charge  a  schoolchild,  and  that  the  age  limit  for  these 
reduced  fares  was  14. 


4,1 


10  XNPUT  "Enter  fare 
20  XNPUT  "Enter  396  " 

30  LET  fareafaref 10.5 


";  fare 
;  39e 

or  age >x 


40  print  “The  far  e  is  fare 


Lines  10  &  20  ask  you  to  enter  the  normal  adult  fare  and  the  age  of 
the  passenger/ commuter.  Now  then,  to  understand  this  a  bit 
easier,  let  us  convert  it  to  plainer  English: 

LET  FARE  =  FARE  *  (0.5  unless  his  or  her  age  is  over  14) 

If  the  expression  following  OR  in  brackets  is  true,  then  the 
expression  in  brackets  has  the  value  1  >  However,  if  the  expression 
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following  OR  is  false  the  or  she  is  14  or  younger)  then  the 
expression  takes  the  value  before  the  OR.  This  number  can  also  be 
a  variable  if  you  like.  On  its  own  this  routine  does  not  have  much  to 
offer  against: 

30  IF  AGE  <  =  14  THEN  LET  FARE  =  FARE  *0,5 

However,  if  you  had  several  categories  of  fares  on  offer  then  the 
method  using  OR  can  be  extended  to  evaluate  all  the  categories  on 
one  line. 

'NOT  X'  takes  the  value  of  0  if  the  relation  X  is  true  and  the  value  1 
if  the  relation  is  false.  The  best  wey  to  illustrate  this  is  with  this  kind 
of  example: 

1®  INPUT  a 
S®  INPUT  b 

30  PRINT  a;Tft©  b ; TRB  3; NOT  3 
=  b 

40  GO  TO  1® 

What  you  will  see  on  the  screen  are  the  two  numbers  you  entered 
in  lines  10  &  20,  followed  by  a  0  or  a  1 .  From  the  results  you  get, 
see  if  you  can  work  out  which  relationships  between  A  and  B 
produce  which  value  in  the  third  column.  Try  other  relational 
operators  in  place  of  -  in  line  30  to:- 

Finally,  let  us  look  at  two  interesting  little  oddities.  First,  consider 
this  line: 


1®  IF  THEN  IF  THEN  PR  I 

NT  "true" 

It's  to  all  intents  and  purposes  the  same  as 


10  IF  3=1  RND  b=2  THEN  PRINT  " 

t  rue" 

except  that  it  requries  extra  memory.  There  is  e  slight  difference  in 
that  if  you  haven't  previously  defined  B  then  the  version  using  AND 
will  crash  with  report  2.  However,  if  the  first  part  of  the  other 
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version  is  false  then  the  program  skips  over  the  remainder  of  the 
line.  You  may  be  able  to  find  an  application  for  this. 

The  second  oddity  is  not  really  an  oddity,  more  something  that  is 
missed  by  many  people.  Try  these  programs: 

10  INPUT  a 

30  IP  a  THEN  PRINT  3 


10  INPUT  a 

30  IP  NOT  3  THEN  PRINT  a 

You  might  not  expect  these  programs  to  work  because  there  are  no 
relational  operators  for  comparing  A  with  anything.  Here, 
however,  the  value  of  A  is  considered  to  be  true  if  it  is  not  zero,  or 
zero  if  you  use  NOT.  As  with  everything  else  in  this  section, 
experiment  with  the  examples  until  you  understand  exactly  what 
each  routine  does.  You  will  find  that  these  statements  can  be  very 
powerful  programming  facilities,  and  your  programming  can  be 
greatly  improved  as  a  result. 

You  can  use  IF/THEN  GO  TO  to  terminate  a  'win  condition' 
message  after  a  certain  number  of  cycles.  Enter  and  run  the 
following: 

10  LET  X  =0 

30  PRINT  “You  have  won  11 ; 

I  pT  y  — v 

4.©  IF  X  <S5  THEN  GO  TO  30 

This  will  ensure  that  YOU  HAVE  WON  is  printed  out  a  limited 
number  of  times. 

As  you've  seen,  IF/THEN  is  not  just  used  to  branch  to  new  lines. 
NEW  the  program,  and  enter  the  following.  You'll  see  it  has  a 
similar  effect,  although  the  IF. . .  .  is  not  just  sending  the  program 
to  a  line  number. 

10  LET  x=0 
30  L  ET  y*  sx  + 1 

3©  IF  X<25  THEN  PRINT  "YOU  hSV 

e  won  ; 

4-0  GO  TO  20 
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This  program  is  not  as  useful  as  the  other  one,  as  it  will  not 
terminate  even  when  it  has  finished  printing  out  YOU  HAVE  WON. 
You  can  easily  discover  this  by  running  it,  then  pressing  BREAK, 
and  then  PRINT  X,  ENTER. 

It  is  perhaps  worth  mentioning  that  the  computer  is  a  fairly 
dogmatic  creature.  If  you  specify  that  a  program  branch  is  to  be 
made  only  if  the  value  of  Z,  for  example,  is  equal  to  6,  the  program 
will  continue  in  a  never-ending  loop  if  Z  is  not  exactly  equal  to  6,  no 
matter  how  close  it  is  (like  5.999999).  If  you  think  the  value  might 
be  fractionally  different  from  the  one  you  want  as  a  condition  for 
branching,  make  sure  you  specify  that  the  relational  operator 
should  be,  say,  greater  than  5.5,  or  greater  than  or  equal  to  5.9, 
rather  than  just  equal  to  6. 
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IF/THEN/ELSE 

Many  dialects  of  BASIC  include  an  ELSE  option,  used  in  the 
statement  IF. .  .THEN.  .  .ELSE.  There  is  no  such  function  in 
our  computer's  BASIC,  but  its  logic  can  be  used  to  emulate 
this. 

The  IF. .  .THEN  . .  .  ELSE  is  a  very  useful  variation  on  IF.  The 
computer  can  be  programmed  to  do  something  jf  the 
condition  being  tested  for  is  found  to  be  true,  and  something 
else,  other  than  just  go  to  the  next  line,  if  the  condition  is 
found  to  be  false. 

You  can  use  the  following  substitution  for 
IF. .  .THEN ...  ELSE  to  produce  some  very  interesting 
graphs.  You  simply  enter  the  function  you  would  like  graphed 
in  line  60.  This  is  not  the  most  efficient  method  of 
programming  on  the  computers,  but  it  is  useful  as  a  means  of 
demonstrating  the  IF. .  .THEN.  .  .ELSE  substitution.  As  the 
program  runs,  it  evaluates  K  each  time  it  comes  to  line  60. 
Line  70  looks  at  the  value  of  K  and  prints  a  zero  if  K  is  greater 
than  or  equal  to  point  five,  and  a  full  stop  if  K  is  less  than 
0.5.  This  is  the  same  as  a  line  reading  IF  K  is  greater  than  or 
equal  to  point  five  print  "0"  ELSE  print  Each  of  the 
other  graphs  uses  different  values  for  K,  as  generated  by  line 
60.  The  condition  tested  for  in  line  70  also  varies.  Run  the 
samples  given,  using  your  own  choice  of  graphics  symbol  in 
line  70,  and  then  create  a  few  of  your  own.  It  is  likely  that 
you'll  have  to  change  the  scaling  for  certain  functions. 


10  REM  Graph  plotter 
BB  FOR  ysrl©  TO  -IS  STEP  -1 
30  IF  yoi©  PND  yo-l©  PND  y>~ 
1  THEN  PftlNT  "  **; 

PRINT  y;TPB  *; 

50  FOR  X=-10  TO  1© 

6©  LET  £  =y  -X  sS  *7 
70  PRINT  (“©"  PND  k>=.5 
PND  k<.s.t; 

60  NEXT  X 
9©  PRINT 
10©  NEXT  U 

110  PRINT  TfiB  4.;“  .9.7. 5.3.1. 1.3 
.5.7.9." 
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2© 

■9 

8 

7 

Fx 

§ 

4 

3 

2 

2 

0 

“X 


-S 

-s 

—  9 
-10 

. 9.7.5. 3.1. 2. 3. S.?. 9. 


9  .  *  *  *  .00000000000 . 

S  ••■*«•  000000000  c  *  a  *  »  a 

7  t  «  *  •  •  >  000000000 .  k  f  «  .  * 

8  ......  000000000  ...... 

5  .......  0000000  ....... 

4  »»»«..»  0000000  ....... 

3  . 00000  ........ 

2  ........  00000  ........ 

-Ju  .........  .  ..*..*.4 

0  . . . 

-1  . . . . , . . . .000. ........ 

-2  . .  .  .00000 . 

-3  * . 00000  ........ 

-4  .......  0000000  ....... 

.......  0000000 ....... 

~S  ..... .000000000. . . . . . 

-7*  ......  000000000  ...... 

~8  ......  000000000 

-9  . . . . . ©0000000000 _ _ 

-10  .  .  «  *  .00000000000.  .  .  .  . 
*9,7.5*3.I*1.3.S.7.9* 


80  LET  fc^3**BS  (y.i-x#x 


. . . . .00000000000 . 

.  .  a  .  .00000000000 . 

.  .  .  .  -  00000000000  .  .  .  ,  . 

.  i  •  t  •  00000000000  .  .  .  .  . 

.  .  .  .  , 00000000000 .  .  .  .  . 

......  000000000 ...... 

......  000000000  ...... 

......  000000000  ...... 

......  000000000  ...am. 

....... 0000000 

.  . . 0000000  ....... 

....... 0000000 . . % . a . . 

. .  0000000 . 

. 00000 .  ......  . 

........  00000  ........ 

. a  a  .000.  a . 

a  a  a  a . 000 . 
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6©  LET  k  =SOR  (»B5  iy*X*2>S-X 
7©  PRINT  ( "9"  RND  K<=.5i + ( " . “ 
RND  k  > . 5  > i 


RND  k  <  .  5  >  ; 
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RND  K  <  *25)  ; 


Try  to  work  out  what  line  60  should  read  to  produce  this 
graph. 
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FOR/NEXT  loops 

FOR /NEXT  loops  are  additional  useful  parts  of  your  BASIC 
working  tools  on  the  computer.  It  makes  sense  to  study  them 
now,  because  the  last  series  of  programs  relied  heavily  on 
two  FOR /NEXT  loops,  the  Y  loop  which  started  at  line  20 
and  ended  at  100,  and  the  X  loop  which  ran  from  line  50  to 
line  80.  Because  these  are  slightly  more  complex  than  the 
simplest  FOR /NEXT  loops,  we'll  leave  the  discussion  of  those 
alone  for  the  time  being. 

A  FOR/NEXT  loop  is  made  up  of  two  statements  used  to 
control  a  series  of  cycles  of  a  part  of  a  program.  FOR  begins 
the  loop,  specifying  how  many  times  the  loop  is  to  be 
executed,  and  the  NEXT  statement  occurs  at  the  end  of  the 
sequence,  returning  the  program  to  the  statement  line 
followed  the  one  containing  the  FOR  command. 

FOR  statements  are  made  up  of  the  line  number,  following  by 
the  FOR,  a  numeric  variable  (a  single  letter),  an  equals  sign,  a 
numeric  expression  (a  number,  or  a  previously  assigned 
numeric  variable),  the  word  TO  and  finally,  another  numeric 
expression  (the  number  of  the  previously  assigned  numeric 
variable)  which  is  different  from  the  first  one.  That  may  sound 
incredibly  complicated,  but  it  is  really  quite  simple. 

The  FOR  line  reads: 

100  FOR  J  =  1  TO  100 

The  NEXT  line,  which  terminates  the  loop,  is  of  the  form: 
200  NEXT  J 

The  NEXT  statement  then,  is  made  up  from  a  line  number, 
the  word  NEXT,  and  the  variable  set  as  the  control  in  the  FOR 
statement,  earlier  in  the  program.  The  NEXT  sequence  is 
used  solely  to  tell  the  computer  when  the  sequence  of 
programming  which  is  being  repeated  is  to  stop.  When  the 
value  of  the  control  variable  (J)  reaches  the  value  set  in  the 
FOR  statement  (the  second  numeric  variable  set  in  the  FOR 
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statement),  the  program  passes  through  the  loop  for  the  final 
time  and  then  continues  with  the  line  following  the  one 
containing  the  word  NEXT. 


Enter  and  run  this  example: 


10  FOR  aal  TO  1© 

20  PRINT  TAB  4.:a;TfiB  6;  a  *a 
30  NEXT  3 


1 

i 

a 

4 

3 

g 

4. 

16 

5 

25 

6 

36 

? 

49 

s 

64 

9 

61 

10 

100 

The  control  variable  is  A,  and  line  20  prints  out  A  and  A 
squared.  Note  that  the  limits  of  the  control  loop  are  stated 
explicitly  in  line  10  (1  TO  10). 


Look  at  this  next  example: 


10  LET  a  =5 
20  LET  b»16 
30  FOR  c«a  TO  b 

4-0  PRINT  TAB  *;  c;TAB  8.;  c/10;Tfl 
S  14.;  c/a 

50  NEXT  C 


5 

0.5 

1 

6 

0.6 

1.2 

7 

0.7 

1.4- 

0 

0.8 

1.6 

g 

0.9 

1.3 

10 

1 

a 

ii 

1.1 

2.2 

12 

1.2 

2.4 

13 

1.3 

2.6 

14 

1.4 

2.6 

15 

1.5 

3 

16 

1.6 

3.2 

Note  that  in  this  program  the  limits  of  the  FOR/ NEXT  loop 
are  two  variables,  A  and  B,  which  have  been  previously 
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defined.  You  will  find  there  are  many  programs  where  you 
will  want  a  limited  FOR/NEXT  loop,  with  the  limits  being  a 
result  of  things  that  have  occurred  elsewhere  in  the  program. 


Nested  loops 

As  you'ye  just  seen,  a  FOR  /NEXT  loop  allows  us  to  alter  the 
value  of  one  variable  (by  a  count  of  one  in  the  cases  we've 
studied},  to  repeat  a  programmed  series  of  events  a  specified 
number  of  times.  Now,  suppose  there  were  two  or  more 
variables  to  be  operated  upon.  In  this  case,  you  would  need 
to  vary  both  values.  This  can  be  done  quite  simply  by  nesting 
loops,  in  which  one  loop,  controlled  by  one  set  of  FOR /NEXT 
statements,  operates  within  another  set. 

Enter  and  run  the  following  program,  which  nests  a  B  loop 
within  an  A  loop. 


REM  Nested  loops 
30  FOR  a  =1  TO  32 
4-0  FOR  TO  12 

50  PRINT  TRB  8;  b;  "  t 


i  s  M; 

©O  NEXT  b 
70  PRINT 

60  POKE  £3692,-1 
90  NEXT  a 


When  you  run  this,  you'll  see  it  prints  out  the  multiplication 
table,  from  1  x  1 ,  to  12  x  12.  Part  of  the  run  is: 


6  times  4- 

i  £ 

32 

3  times  4- 

i  £ 

36 

10  times  4 

i  S 

4*0 

11  times  4- 

i  £ 

4*4- 

12  times  4- 

i  £ 

4-8 

1 

times 

s 

i  £* 

5 

2 

t  i»es 

5 

i  £ 

10 

3 

t  i  mes 

5 

i  £ 

15 

4 

times 

5 

i  S 

£0 

90 


5  tiroes  S  is  26 

6  tiroes  5  is  30 

7  tiroes  s  is  33 

0  tiroes  6  is  40 

9  tiroes  5  is  4S 

In  this  program,  the  control  variable  A  stays  at  one,  while  the 
loop  controlled  by  B  runs  from  one  to  12.  After  the  PRINT 
(line  70)  the  control  variable  A  increases  by  one,  and  the  B 
loop  runs  through  again,  this  time  with  the  A  equal  to  two, 
and  so  on,  until  the  B  loop  has  run  through  with  the  A  equal 
to  12.  There  is  no  reason  why  you  should  have  only  two 
nested  loops* 

It  is  vital  that  the  control  variables  of  nested  loops  be  in  the 
correct  order,  that  is,  the  first  loop  begun  is  the  last  one  to 
end.  Try  swapping  lines  60  and  90  of  this  program,  and  see 
what  happens. 

This  is  part  of  the  output,  obviously  not  what  was  required. 


2 

times  ±3 

i  s 

£6 

3 

times  3.4- 

i  £- 

*2 

4* 

times  IS 

i  £■ 

60 

5 

times  IS 

i  £ 

30 

S 

times  IT 

is 

102 

7 

times  18 

i  £ 

126 

a 

times  13 

i  S 

132 

9 

times  2d 

i  £ 

100 

10 

times  21 

i  S 

210 

11 

times  22 

i  £ 

24*2 

12 

times  23 

i  £ 

276 

Use  the  same  variable  for  as  many  purposes  as  you  can, 
especially  when  you  use  FOR/ NEXT  loops.  Don't  use  another 
letter  as  the  name  for  a  second  FOR/ NEXT  loop  if  you've 
already  finished  with  a  previous  one  as  this  wastes  memory. 
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STEP 

For  this  next  discussion,  we  need  the  program  TABULATOR 
ROCKET  RANGE  which  was  introduced  earlier. 

The  important  lines  for  our  discussion  at  this  point  are  30, 
40  and  70.  You'll  see  when  you  run  the  program  that  this 
causes  the  numbers  10  down  to  1  to  appear  on  the  screen. 
The  word  STEP  (in  line  30)  after  the  1  controls  this.  Change 
the  —1  following  the  word  STEP  to  —  2,  and  see  what 
happens.  If  no  STEP  is  specified,  the  computer  assumes  you 
want  a  positive  STEP  of  1 ,  which  is  what  has  been  needed  in 
the  earlier  examples  in  this  section. 

The  STEP  command,  then,  is  used  within  a  FOR /NEXT  loop 
to  allow  the  user  to  specify  the  value  of  the  increment  (or 
decrement)  of  the  control  variable.  The  STEP  does  not  have 
to  be  a  whole  number,  although  you  must  ensure  —  if  the 
number  which  follows  the  word  TO  in  the  initial  FOR 
statement  is  lower  than  the  number  before  the  TO  —  that  the 
STEP  is  negative.  Try  the  following  examples: 


10  FOR  a -100  TO  1  STEP  -IS. 5 
2©  PRINT  TAB  S;  a 
3©  NEXT  a 


100 

©7.5 

75 

©a.  s 

50 

37.5 

as 

12.5 


1©  FOR  a =10  TO  1  STEP  -0.175 
2©  PRINT  TAB  B;  a 
30  NEXT  a 


1© 

9.  ©as 

9.65 

9.4-75 
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9.3 

9.  125 

3.95 

8.775 

3.6 

8.425 

3.25 

3.075 

7.9 

7.725 

7.55 

7.375 


In  a  FOR/ NEXT  loop,  STEP  does  not  have  to  be  a  whole 
number;  it  may  be  a  fraction,  decimal,  the  result  of  a 
calculation  and  does  not  have  to  hit  the  limit  value  of  the  loop 
exactly.  It  carries  on  looping  as  long  as  it  is  less  than  or  equal 
to  the  limit.  You  cannot  easily  change  the  value  of  STEP 
during  the  course  of  a  loop.  If  the  limit  value  has  already  been 
exceeded  then  the  loop  will  be  totally  bypassed: 


10  FOR  F  =  1  TO  0 

20  PRINT  “X" 

30  NEXT  F 


You  may  be  able  to  use  this  idea  to  prevent  loops  being 
executed  if  certain  conditions  exist,  e.g.  if  you  didn't  went  a 
black  line  to  be  drawn  if  X  was  equal  to  6: 

1000  FOR  F  =  (X  =  6)  *  33  TO  31 

1010  PRINT  CHR$  143; 

1020  NEXT  F 


The  test  for  whether  the  limit  value  has  been  exceeded  is 
made  at  the  line  containing  the  FOR  statement.  An 
interesting  experiment  is  to  try  a  STEP  value  of  0.  The 
control  variable  is  never  incremented  and  so  the  loop  never 
ends!  You  can  jump  out  of  FOR /NEXT  loops  without  any 
problems,  but  you  cannot  jump  into  a  loop  unless  the  control 
variable  has  already  been  set  up  (effectively  if  you've  used 
that  loop  before).  In  a  FOR/NEXT  loop,  the  loop  jumps  from 
NEXT  to  the  line  following  the  FOR  statement.  Some 
versions  of  BASIC  allow  you  to  omit  the  variable  after  NEXT 
and  the  most  recent  control  variable  is  then  incremented;  you 
must  specify  the  control  variable  on  your  computer. 
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GOSUB  and  RETURN 

A  subroutine  is  a  block  of  program  within  a  larger  program 
which  performs  one  specific  task.  The  main  program  is 
executed,  line  by  line,  until  the  subroutine  is  called,  by  the 
GOSUB  command.  The  computer  goes  to  the  specified 
number,  works  through  in  line  order  from  that  point,  until  it 
hits  the  word  RETURN.  This  is  the  signal  for  the  computer  to 
return  to  the  main  program,  to  the  line  after  the  one  which 
sent  it  to  the  subroutine. 

A  subroutine  is  useful  if  a  particular  set  of  calculations  has  to 
be  carried  out  a  number  of  times  within  a  program,  and  at 
different  places  within  the  program.  For  example,  in  a 
financial  programr  there  may  be  a  number  of  tax  calculations 
to  be  carried  out  at  different  points  within  the  program. 
Whenever  this  need  arises,  the  program  is  told  to  GOSUB, 
and  it  stays  in  this  subroutine  until  it  hits  the  word  RETURN, 
when  it  returns  to  the  line  after  the  GOSUB  command. 

A  subroutine  is  written  exactly  like  the  main  program,  except 
that  it  is  a  program  within  a  program,  and  is  bounded  by  two 
lines,  ona  containing  the  GOSUB  and  the  other  the  RETURN 
line.  The  GOSUB  command  is  made  up  from  a  line  number, 
followed  by  the  word  GOSUB,  and  another  line  number.  The 
line  40  GOSUB  100  tells  the  computer  to  branch  to  line 
100  and  continue  executing  the  program  in  order,  just  as  if 
line  40  had  said  GOTO  100.  However,  when  the  program 
reaches  a  line  containing  the  word  RETURN,  the  action 
reverts  to  the  main  program,  at  the  line  number  which  follows 
the  ona  containing  the  GOSUB  statement  (in  this  case,  the 
first  lina  number  after  40). 

A  simple  example,  showing  GOSUB  and  RETURN,  follows. 
Enter  and  run  it  a  faw  times,  than  come  back  to  the  book  for  a 
discussion  on  it. 

Your  nuaber  is  23* 

234*  squared  is  5*756 

Your  number  is  23.76 
23.76  squared  is  5t>*.S376 


94 


Your  number  is  4- 
4-  squared  is  16 

Your  number  is  33 
33  squared  is  2B69 


IB  REM  GOSUB /RETURN  DEMO 
20  POKE  23609,100:  REM 
ADDS  BEEP  ON  KEY  PRESS 
30  INPUT  "Enter  a  number 
4.0  GO  SUB  10© 

50  GO  TO  30 

90  REM  SUBROUTINE  FOLLOWS 
200  PRINT  ' "Your  number  is 
110  PRINT  R ;  "  squared  is  ** 
12®  RETURN 


%  i 


;  n 


R 

;  R*2 


Line  30  asks  you  to  enter  a  number,  then  line  40  transfers 
control  to  the  subroutine  starting  at  line  100.  The  required 
calculations  are  carried  out,  and  the  results  of  them  printed, 
within  the  subroutine,  then  line  120  returns  control  to  the 
line  after  the  one  which  sent  control  to  the  subroutine,  that  is 
line  50.  As  line  50  is  a  GOTO,  action  goes  back  to  line  30, 
where  a  new  number  is  requested,  and  the  whole  merry 
dance  begins  again. 


Enter  and  run  the  following  program,  which  pits  two 
submarines  against  each  other  in  a  race,  to  see  a  subroutine 
doing  something  a  little  more  interesting  than  in  the 
preceding  program. 


10 

IS 

20 


REM  GOSUB  RACE 
PAPER  5:  BORDER 
LET  R*  =  "JL 


5: 


CLS 


30  LET  COMPUTER =26 
4.0  LET  HUMA1N25 
5©  LET  X=5 
SS  BEEP  ,01,RNO*50 
60  GO  SUB  200 
70  LET  X=10 
75  BEEP  .01, RND  J50 
80  GO  SUB  100 
90  GO  TO  50 

200  IF  X»5  THEN  LET  COMPUTER*CO 
MPUTER-RND:  PRINT  RT  X, COMPUTER; 

INK  6; ft#:  IF  COMPUTER  < 2  THEN  PR 
INT  RT  0,0,;  PAPER  6,  FLASH  1;  BR 
IGHT  1.;  "COMPUTER  UIN5"  :  STOP 
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110  IF  X^l©  THEN  LET  HUHRN=HUHR 
N -RND :  PRINT  RT  X , HUMAN;  INK  2;  R 
$;  IF  HUMRN  <3  THEN  PRINT  RT  0,0; 

PRPER  6;  FLR5H  1;  “HUMfiN  UINS"  : 
STOP 

12©  RETURN 


There  are  two  'submarines'  on  the  screen.  The  top  one  is  the 
computer's,  and  the  bottom  one  belongs  to  you.  You  just 
press  RUN,  then  ENTER,  and  the  submarines  move  across 
the  screen  from  right  to  left.  When  one  or  the  other  reaches 
the  side,  the  program  stops,  printing  out  COMPUTER  WINS 
or  HUMAN  WINS,  as  the  case  may  be. 


Note  that  A$,  the  submarine,  extends  over  more  than  one 
line.  Just  keep  pressing  SPACE  over  and  over  again  once 
you've  put  in  the  'periscope'  part  of  the  picture.  Note  also 
that  there  is  a  space  after  the  end  of  the  submarine.  This  is 
vital,  as  you'll  discover  if  you  leave  it  out. 


Sound 

The  BEEP  command  on  the  Spectrum  can  be  used  to 
enhance  your  programs,  adding  appropriate  noises  when 
aliens  are  zapped,  balls  bounce  off  walls,  or  you  manage  to 
defeat  the  computer  in  a  game  of  skill. 

Although  it  may  appear  at  first  sight  that  a  single-voice,  fairly 
quiet  sound  channel,  which  stops  all  other  computer  action 
while  it  is  sound,  is  limited,  it  can  still  be  used  to  add  a 
surprising  degree  of  interest  to  your  programs. 

We  have  connected  a  small  extension  speaker  to  our 
Spectrum,  plugging  it  into  the  EAR  socket.  Although  this 
does  not  increase  the  volume  very  much,  having  a  second 
source  for  the  sound  definitely  improves  its  effectiveness. 

The  BEEP  command  (both  SHIFT  keys,  then  the  red  SHIFT 
key  held  down  as  you  press  Z)  has  two  parameters  (that  is,  it 
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has  two  numbers  after  the  word  BEEP).  The  first  number  is 
the  length  of  the  note  it  plays,  and  the  second  number  is  its 
pitch. 

You'll  get  an  idea  of  the  kind  of  noises  it  can  make  by  running 
this  'Random  music'  routine: 


5  REM  Random  music 
10  BEEP  RND /RND /3 , RND  *60-35 
13  BORDER  RND*? 

15  BEEP  RND/RND/2  *  RND  *80-4-5 
30  BORDER  RND*? 

35  BEEP  RND/RND/3 , RND  *13©  —55 
30  PRPBR  RND*7 
4-0  CLS 

4-5  BEEP  RND/RND/2..  RNDf40-5 
50  GO  TO  10 


The  result  of  using  BEEP  within  a  loop,  or  a  couple  of  loops, 
can  be  very  interesting,  as  this  demonstration  shows-. 


20  REM  LOOPING  MOSTC 
20  FOf?  P  =  -E0  TO  ©0 


30  FOR  B  =  .0i  TO  ,03  STEP  , 
4-0  BEEP  BEEP  B,R/i0jfB 


EP  BfRBS  IP.* 
50  NEXT  B 
B0  NEXT  bt 


01 


:  SB 


Randomly  produced  BEEPs,  if  held  within  limits,  can  also  be 
interesting*. 


10  LET  PXTCH=XNT  —IS 

20  LET  BUPPT  ION  -  1 1  NT  iKNDf£t.i  +2 
>  .'30 

30  SEEP  DURfiTIONyFITCM 

4-0  XF  RND  >  =  .  7  THEN  GO  TO  30 

50  GO  TO  10 


As  you  know  from  your  manual,  certain  pitch  numbers 
produce  certain  notes,  with  —  for  example  —  zero  for  Middle 
C,  12  for  the  C  an  octave  above  it,  and  -  3  for  two  notes 
below  it.  The  next  program  turns  your  ZX  Spectrum  into  a 
Vibraphone'  in  which  you  use  the  bottom  row  of  keys  to 
produce  the  notes  (in  the  key  of  C):C  (Z  key),  D(X),  E(C), 
F(V),  G(B),  A(N),  B(M),  C(K).  The  notes  will  continue  to 
sound  so  long  as  you  hold  the  key  down. 
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10  REM  PIBNO 

20  LET  R=CODE  INKEY J 

3©  IF  A  <66  OR  A  >90  T 


HEN  90  TO 


20 

4-0  LET  B  =  12*(fl=75)  f2f(fl=88)  +4t 
(A=673  +5* <A=86)  +7* CA=5S)  +9*  (B=78 
J  +  11*  (A*77J 

50  BEEP  •  04- , B 

60  IF  INKEY*  <>■*■•  THEN  GO  TO  50 
80  GO  TO  20 


Once  you've  mastered  that,  you  can  add  a  little  colour  to  go 
along  with  the  pitch  of  the  notes,  with  this  variation  (line  70 
has  been  added  to  the  preceding  program). 


SO 


1®  REM  PlftNO 
«£  INKEY  * 

-3®  IF  R<  OR  fl>90  THEN  GO  TO 


4-0  LET  B=i2t  ffl=75J  +2*  ift  =33.»  +4-* 
fA=673  +5#  (R=06.»  +  7*  (ft=66.>  +9*  (ft=7S 
+11#  {R=T7».t 
50  BEEP  .04.,B 

60  IF  INKEY*  o'1**  THEN  SO  TO  5® 

7®  BORDER  B/2:  PAPER  B/£;  CLS 
80  GO  TO  20 


If  you  find  playing  the  Spectrum  vibraphone  too  much  work, 
you  can  get  the  computer  to  do  it  all.  As  you'll  see  from  the 
DATA  line,  the  'well-tempered  Spectrum'  uses  the  natural 
scale  of  C. 

10  REH  The  well-tempered 

Sp  ettrus 

£0  DIM  A  (8) 

30  FOR  B=1  TO  8 
4.0  READ  A  (8) 

50  NEXT  B 

70  LET  B=INT  ( RND iS) +1 
75  LET  M=(INT  fRND*4->  +1J  ✓  10 
80  BEEP  H,fi(B) 

85  IF  RND >.9  THEN  GO  SUB  110 
90  GO  TO  70 

100  DATR  0..  2.039,3.86,.  A.  98,7. 0S 
.3.84.,  10.  BS,  12 
110  LET  Z=RND 

112  LET  M=A  Cl)  *  (Z>  =  .  5)  +A  <8)  *  (Z  < 

.  51 

115  BEEP  1 , H 
120  PAUSE  25 
130  RETURN 


You  will  see  many  examples  of  use  of  BEEP  in  the  programs 
in  this  book,  and  these  should  give  you  ideas  of  sounds  which 
you  can  add  to  your  own  programs. 


The  final  program  in  this  section  shows  a  program  in  which 
the  sound  is  an  important  ingredient,  and  not  just  an 
afterthought.  In  this  variation  of  SIMON,  the  computer  picks 
a  number  between  one  and  four,  and  puts  it  on  the  screen, 
with  a  relevant  BEEP  and  a  burst  of  colour.  You  have  to  press 
the  same  number.  The  computer  will  then  repeat  its  first 
number,  and  add  a  second  one.  You  have  to  repeat  both 
numbers,  in  sequence.  If  the  computer  selects  the  same 
number  twice  in  a  row,  you  have  to  press  it  twice,  taking  your 
finger  off  the  key  briefly  before  doing  so.  You  win  the  game  if 
you  manage  to  remember  a  sequence  of  seven  digits 
correctly. 


3.  REM  _ 5 i  no n _ 

5  LET  3  S  — " 

121  FLASH  1 
20  PAPER  7 
30  FOR  3=1  TO  7 

32  PRINT  AT  10,10;  "FUase  St  SR 
d  by 

35  BORDER  RNO*7 

4-0  LET  a$=a*+STR*  (TNT  (RND44-3 
+  13 

4-5  PAUSE  S 
50  NEXT  a 
55  FLASH  O:  CL 5 
60  LET  X  =1 
70  FOR  q=l  TO  X 

72  LET  l  =4-4  (CODE  a*tqj-4.©> 

73  LET  t  =VRL  a*fq> 

75  BEEP  .05,.  10  4t  _ 

30  PRINT  AT  l 7;  INK 

;  flT  1+1/7;  •'■■■'*;  AT  1-1/7 

85 BORDER  RND  +  7 


SO 
lOO 
AT  l 
102 
10S 
110 
120 
122 

2 

123 

124- 

125 

126 
130 

;  t*;; 


PAUSE  20 -X 
PRINT  AT  L  ,7;  INK  6;,  jAS*" 
+ 1  /  7 ;  "AV  ;  fiT  i  - 1 „ 7;  Av1 


PAUSE  4- 
CLS 

NEXT  q 

FOR  b=l  TO  x 
IF  INKEY  *  <  >  " 


THEN  GO  TO  12 


t  LET  t  *= INKEY* 

IF  CODE  t*=0  THEN  GO  TO  121 
CLS 

LET  y  =4.*  (CODE  t  *-4-SJ  _ 

print  AT  y  , 7;  ink  y,'4-;  "Ht 
at  y-i  ,7;  -Ml";  AT 
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14-5  BEEP  .  04-  .2.5*-y 

14-6  IF  CODE  t  $  <  > CODE  TH 

£N  GO  TO  300 
14-7  PAUSE  7 

14-S  C1_S 
150  NEXT  b 

155  IF  X  =7  THEN  PRINT  "YOU  Win.' 
**:  BORDER  RND*7;  PAPER  RNDif-7 ;  GO 
TO  155 

150  LET  ;r  =x  *1 
165  PAUSE  SO 
170  GO  TO  70 

30©  PRINT  “You  scored  ”  ;  x  -1 

310  BORDER  RND  *7 
320  PAPER  RND»7 

330  CL5 

335  BEEP  -02.RND*30 
34-0  GO  TO  300 


DEFining  functions 

This  feature  allows  you  to  DEFine  functions  within  a 
program,  which  you  can  then  call  whenever  you  need  to 
while  running  the  program.  DEF  FN  can  save  space  as  well  as 
time,  as  complex  calculations  can  be  defined  with  a  short 
name,  and  called  up  at  will  by  use  of  this  name. 

There  are  four  things  in  the  statement  which  define  the 
function: 

•  The  word  DEF. 

•  The  name  of  the  function,  which  consists  of  the 
letters  FN,  followed  by  the  name  (a  letter  if  it  is  a 
numerical  function,  a  letter  and  a  $  if  it  is  a  string 
function). 

•  The  argument  of  the  function  which  follows  the 
name,  in  brackets, 

•  The  formula,  using  the  argument,  for  working  out 
the  function. 

This  sounds  a  lot  more  complicated  than  it  is  in  practice.  Look 
at  this  program. 
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10  REM  DEFINE  ft  FUNCTION 
2©  DEF  FN  ft  (Z) =2fZ 
30  INPUT  Z 
4.0  PRINT  Z..FN  ft  (ZJ 
50  GG  TO  30 


12 

4.4- 

23 . 7*6 
1111 
4-4- 
34-5 
4- 

11 


14-4. 

1936 

564-.  5375 
1234-321 
1936 
119025 
16 
121 


Line  20  defines  a  function  A,  with  the  argument  Z  as  being  Z 
squared.  Then,  whenever  the  program  comes  across  FNA(Z), 
it  will  square  the  value  assigned  to  the  variable  Z.  You  can  see 
this  in  the  demonstration. 

In  the  next  program  —  BAT  —  a  function  is  defined  in  line 
70.  The  function  gets  the  square  root  of  the  difference 
between  the  square  of  two  variables,  and  in  the  routine  120 
to  210,  uses  the  value  H  (see  line  130)  to  determine  the 
printing  positions  of  the  dots  which  will  draw  up  the  bat. 


10  REM  BRT 

20  REM  S HOUINB  DEF  FN 
30  LET  L=B 
40  LET  P=10 
SB  LET  0=17 
60  LET  B=0 

70  DEF  FN  RfBJ«SOR  »L*L-B*B.> 
SB  PAPER  6;  CL 5 
90  INK  0:  BORDER  £ 

100  PRINT  RT  P,Q;"0" 

110  LET  L=L+1 

120  FOR  B=B  TO  L 

130  LET  H=FN  ft 

14-B  PRINT  ftT  P+B,0+H;  *'  .  ** 

160  PRINT  ftT  P+B,0-H;  ” .  '* 

1S0  PRINT  RT  P-B  ,0-H;  "  .  ** 

19B  PRINT  RT  P-B.O+H; 

200  BEEP  ,02,50+H 
21B  NEXT  B 

220  IF  L  < 11  THEN  GO  TO  11B 
230  PRINT  INK  2;  RT  9,16;”..*  S” 
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DIM  and  arrays 

The  DIM  statement  is  used  to  set  up  a  fist  which  you  can 
easily  access.  You  may  find  it  necessary,  in  some  programs, 
to  refer  to  elements  of  a  long  list  of  numbers,  such  as  if  you 
INPUT  a  quantity  of  DATA,  and  you  wish  to  use  it  in  a  certain 
way,  such  as  PRINTing  it  in  order  or  magnitude. 

An  array  is  a  set  of  memory  spaces  reserved  in  the  computer, 
and  referred  to  by  the  name  of  the  array,  and  by  a  subscript. 
To  produce  an  array  to  hold  three  elements,  you  enter  DIM 
A{3)  which  creates  spaces  for  an  array  called  A.  To  hold  four 
elements,  you  enter  DIM  B(4). 

Enter  and  run  the  following  program  which  should  make  it  a 
little  easier  to  understand. 


10 

REM 

**RRRRYS 

DEMO  *  * 

20 

DIM 

B  14) 

3© 

FOR 

R  =  1  TO  4 

40 

LET 

B  U=)>  =INT 

IRND*S’.> +1 

50 

NEXT  R 

&0 

FOR 

TO  4 

10a 


70  PRINT  TAB  15 

S  (A> 

50  NEXT  A 


B  1 1)  IS  6 
5  (2.1  IS  9 
B  (3)  IS  7 
B  (4>>  IS  1 


As  you  can  see  from  line  20  of  the  program  you've  just  run, 
the  computer  needs  you  to  DIMension  an  array  before  you 
can  use  it,  with  a  DIM  statement.  The  DIM  statement  is 
made  up  of  a  line  number  followed  by  the  word  Dl  M,  and  the 
name  of  the  array,  with  the  size  of  the  array  enclosed  in 
brackets. 


The  arrays  we've  been  talking  about  so  far  are 
one-dimensional  arrays,  suitable  for  such  things  as  holding  a 
list  of  numbers.  However,  you  can  have  arrays  of  more  than 
one  dimension.  These  arrays  are  called,  reasonably  enough, 
multi-dimensional  arrays,  and  are  set  up  with  a  DIM 
command  having  more  than  one  subscript.  Enter  and  run  the 
following  program: 


19  REM  MULTI  -DIMENSIONAL 

20  REM  ARRAYS 

30  DIM  A  (4,4.1 

40  FOR  B=1  TO  4. 

50  FOR  C=1  TO  4 
60  LET  A  (B  /  C.1  aINT  (RND*9  J  +1 
70  PRINT  “A(M  jB;  C;  “>  15 

A  <B,e.i 

50  NEXT  C- 
90  NEXT  B 

100  PRINT  AT  2  3  4." 

IBS  PRINT 

110  FOR  B=1  TO  4 

120  PRINT  TAB  13; B; TAB  IS;  A (8,1 
>  ;  "  A  (B,2.i  ;  "  •• ;  A  (B  ,3.1  ;  "  '*;A(B, 

130  NEXT  B 


When  you  run  it  you'll  see  something  like  this: 


A  ( 1 , 1 > 

IS 

9 

A  (1 ,2.1 

IS 

8 

A (1,31 

13 

7 

A  (1 ,4.1 

IS 

4 

A (2, 1> 

IS 

3 

A (2,2) 

IS 

3 
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R  <2 , 3) 

IS 

4 

R (2,4) 

IS 

6 

R (3, X) 

IS 

2 

R (3 ,2) 

IS 

a 

R (3,3) 

IS 

2 

R  (3,4.) 

IS 

S 

R  (4 , 1) 

IS 

7 

R  ( 4. ,  2 ) 

IS 

3 

R  (4.  ,3) 

IS 

S 

R  4  4, 4-) 

IS 

1 

12  3  4 

12  8  7  4 
S  3  3  4-  e 

3  9  3  2  3 

4  7  3  6  1 


Firstly  the  elements  of  the  array  will  be  filled  with  numbers 
between  one  and  nine,  and  these  are  printed  out  by  line  70 
so  you  can  see  what  is  held  by  each  element  of  the  array.  The 
little  table  printed  beside  them  shows  how  the  elements  of 
the  array  are  organised-  Any  element  can  be  accessed  by 
giving  its  coordinates  within  the  array.  If  this  is  so,  element  3, 
(3)  should  lie  where  the  two  threes  intersect,  j.e.  on  the 
number  2.  You'll  see  from  looking  above  in  our  sample  run 
that,  in  fact,  A(3,3)  does  equal  2. 


DIMensioning  an  array  consumes  memory,  so  do  not  set  up 
an  array  larger  than  you  need.  The  number  of  elements  in  an 
array  is  the  first  number  within  the  brackets,  multiplied  by  the 
second  number.  Therefore,  the  array  A  (4,4)  has  16  (4x4) 
elements.  You  can  see  from  our  sample  run  that  this  is  so. 


There  is  no  reason  why  you  should  not  have  arrays  with  more 
than  two  dimensions,  except  for  the  fact  that  they  can 
quickly  become  quite  difficult  to  handle,  and  the  number  of 
elements  rockets  quite  alarmingly.  Here  is  a  program  to 
DIMension  and  fill  a  three-dimensional  array.  Although  the 
array  is  only  A(3,3,3)f  you  can  see  the  number  of  elements  is 
quite  large  (3*3*3). 


10  REM  MULTX-OXMENSXONAL. 
23  REM  RRRRYS 

30  DIM  R(3,3,3> 

4-0  FOR  B=1  TO  3 

50  FOR  C-l  TO  3 

55  FOR  D=1  TO  3 
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60  LET  fi(B,C,D)=INT 
7®  PRINT  **R  f";B;  ”  ,  ” 
IS  "jflfe/C/Dii 
7S  NEXT  D 
60  NEXT  C 
90  NEXT  B 


( RHD-J9.'  4-1 

.  i  -  If  It  »  ft  *  « 

#  /  t  *>*  * 


) 


R(i,l,i) 

IS 

5 

R(l,  lj3) 

IS 

3 

a  c  l ,  i .  3 ) 

IS 

3 

r  (i,,a  u 

IS 

5 

Pi  (1,2,2) 

IS 

ft (i,a,3> 

IS 

a 

ft  (i,3, 1) 

IS 

s 

A  (1,3,2) 

IS 

2 

A  < 1 , 3  ..  3 ) 

IS 

o 

R(a,i, i) 

IS 

5 

A  (2,  1,3) 

IS 

6 

ft (2, 1,3) 

IS 

5 

a  (a, a, i) 

IS 

Q 

pia,a,2) 

IS 

* 

R (3,3,3) 

IS 

a 

R  <  2 , 3 , 1  > 

IS 

1 

A  1 3 , 3 . 2 ) 

IS 

8 

A  (2,3,3) 

IS 

e 

A  ( 3  ,  1 , 1 ) 

IS 

4- 

A  (3, 1  .3) 

IS 

8 

A  (3,1,3) 

IS 

9 

A (3,2, 1) 

IS 

3 

A (3,3,3) 

IS 

8 

A (3,2,3) 

IS 

8 

A (3,3,1) 

IS 

4- 

A  (3,3,2) 

IS 

7 

A (3,3,3) 

IS 

9 

Increase  the  number  of  dimensions  to  five,  as  in  our  next 
example,  and  although  it  is  only  A{2,2,2,2,2),  there  are  now 
32  (2*2*2*2*2*2)  elements. 


ft  11,1,2,1, 1> 

IS 

9 

ft  fl,  1,2, 1,2) 

IS 

a 

ft  ii, 1,2,2, 1) 

IS 

4* 

R (I, 1,2, 2, 2) 

IS 

3 

R  (  1 ,2 , 1 , 1, 1) 

IS 

7 

Ad, 2,1,1,  2) 

IS 

%■»* 

A  (  1 , 2 , 1 , 2 , 1 J 

IS 

4- 

A  (1,2, 1,2, 2) 

IS 

8 

A  (1,2, 2, 1,1) 

IS 

4- 

R  ( 1,2, 2, 1,2) 

IS 

* 

A  (1,2, 2, 2, 1) 

IS 

4- 

A  ( 1 , 2 , 2 , 2 , 2 ) 

IS 

9 

A  (2, 1 , 1 , 1 , 1) 

IS 

8 

R  (2, 1 , 1,1,2) 

IS 

4* 

A (2, 1, 1,2, 1) 

IS 

5 

A (2, 1 , 1 ,2,2) 

IS 

7 
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ft <2,1,2, 1, 1)  IS  1 
R  f  2 , 1  ,  £  ,  1 , 2 IS  7 
ft  (2 ,1 ,2 ,2, 1)  IS  3 
R  (2  i  1 , 2  j£  ,  2)  IS  6 
ft  <2 ,2 , 1 , 1, 1>  IS  S 
ft <2,2, 1 ,1,2)  IS  2 


10  REM  MULTI  -D IMENS I ONftL 
20  REM  ftRRRYS 

30  DIM  ft  (2 ,2 ,2 ,2  ,£.> 

4-0  FOR  B=1  TO  £ 

50  FOR  C=±  TO  2 

S0  FOR  D=1  TO  2 

70  FOR  E=1  TO  2 
30  FOR  F=1  TO  2 

90  LET  ft (S.C,P,E,FJ =IMT  SRMD*0 
)  +1 

100  PRINT  ••«(*';  B;  o;  ;0;  ", 
")  IS  **;  ft  <B,C,P,E,F> 
110  NEXT  F 
120  NEXT  E 
130  NEXT  D 
14.0  NEXT  C 
150  NEXT  B 


Code-breaker 

Here  is  the  game  CODE-BREAKER  to  show  a  single¬ 
dimensional  array  in  use.  The  game  is  simple  to  play.  The 
computer  'thinks  of'  a  four-digit  number,  and  you  have  ten 
guesses  to  work  it  out.  A  correct  digit  in  the  wrong  position 
within  the  code  gives  you  a  'white',  while  a  correct  digit  in  the 
correct  position  gives  you  a  'black'. 


10  REM  CODE-BREftKER 
2©  DIM  C  (4.) 

30  DIM  G  (*> 

40  PRINT  '  '  '  PAPER  2;  INK  S;  ** 

I  a»  thinking  of  a  4-digif 
30  PRINT  PRPER  2.;  INK  S.;“nu«ba 
r,  which  you  have  10  goes** 

60  PRINT  PAPER  2;  INK  6;’*  to  di 
scover.  ftu  4  digits  are 

70  PRINT  PRPER  2;  INK  6,  ”di  f ffi 
rent.  Press  any  key 
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SO  PRINT  PRPER  a;  INK  ft;  " 
to  begin... 

90  PRUSE  4-S4- 
100  CLS 

HO  LET  Ctl)=INT  (RNOi3) 

120  FOR  1=2  TO  4. 

130  LET  C(Z) aINT  <RND*9>+1:  BEE 
P  .5,C<ZJ 

140  FOR  U=1  TO  Z-l 

150  IF  C<U>=CtZ>  THEN  GO  TO  130 
160  NEXT  «J 
170  NEXT  Z 

ISO  FOR  G=1  TO  lO;  BEEP  1.2*G 
200  PRINT  PAPER  1;  INK  7  .TfiB  S; 
■’Enter  guess  ";G;“ 

210  INPUT  R 
220  LET  R1=R 
230  FOR  Z  =  1  TO  4- 

24-0  LET  G  <Z>  =R-10*INT  (A/10) 

250  LET  A=INT  (ft./ 10) 

260  NEXT  Z 
270  LET  B=0 
280  LET  U=0 
290  FOR  Z  =  1  TO  4- 

300  IF  C(Z)  <>G(Z>  THEN  GO  TO  33 


310  LET  BEEP  .02,IQ*B 

320  LET  G  (Z)  =0 

330  NEXT  Z 

34-0  FOR  Z  =  1  TO  4- 

350  IF  G  (Z)  =0  THEN  GO  TO  4-00 

360  FOR  U  =  1  TO  4- 

370  IF  C(ZJ  <>G(U)  THEN  GO  TO  39 


380  LET  U=U+i:  BEEP  .©2,7*U 
SCO  NEXT  <J 
4-00  NEXT  Z 

4.20  PRINT  INK  2;  fll;  “  5CORED 
INK  0:  B;  *•  BLRCK  “  ; 

4.30  IF  BOl  THEN  PRINT  “S”; 

4.4.0  PRINT  ",  INK  2;  U;  “  WHITE 


4.50  IF  U  <  >  1  THEN  PRINT  "S“; 

160  PRINT 

4-7©  IF  B=4-  THEN  PRINT  "YOU  gues 
sed  in  “;G;*‘  guesses*" 

4.80  IF  B  <  >4-  THEN  NEXT  G 
4.90  PRINT  “The  code  was  INK 

2 ;  C  ( 4- )  ;C(3);C(S);C(1) 
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String  arrays 

You  can  also  have  string  arrays,  which  are  very  similar  to 
numeric  arrays.  Enter  and  run  the  following  program  to  see 
the  string  array  in  practice,  entering  four  words  (each 
followed  by  ENTER),  when  prompted. 


10  REM  STRING 
20  DIN  A*  (4,101 
30  FOR  B=1  TO  4 
40  INPUT  R$(B) 

S0  NEXT  e 
60  FOR  B=1  TO  4 
7©  PRINT  "A*  t  ";  B;  ,r) 
8©  NEXT  S 


IS 


R*  i  1) 
R$  <2) 
A*  (3) 
A*  (4> 


IS  WATER 
IS  PERSON 
IS  WASTE 
IS  EHGLRN 


Although  the  second  number  in  the  DIM  statement  (in  this 
case  10)  has  to  be  as  long  as  the  longest  string  you  intend  to 
enter,  you  only  need  to  specify  the  first  element  (as  in  line 
70)  to  get  the  full  string  to  print  out. 


Note  that  the  main  difference  between  a  string  array  and  a 
numeric  array  is  the  dollar  sign  immediately  following  the 
letter.  This  tells  the  computer  the  name  refers  to  a  string. 


Here's  a  string  sort  program  to  show  string  arrays  in  use.  As 
set  up,  and  as  demonstrated  in  the  sample  run,  the  program 
caters  for  five  words.  To  adapt  it  for  more,  change  the  5  in 
lines  20,  50,-  and  40  to  the  number  of  words  you  need  to 
sort. 


10  REM  STRING  SORT 
20  DIM  U$  £5  ..  10) 

30  LET  Bs0 
40  LET  G«5 
30  FOR  A  =  1  TO  S 
S0  INPUT  U$(A) 

70  PRINT  U$(R> 

©0  NEXT  A:  PRINT 
90  LET  Z=1 
100  LET  B«Z+1 
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110  IF  B  >  G  THEN  GO  TO  190 

120  IF  U$  fB)  >U* CZ)  THEN  GO  TO  1 

5© 

130  LET  Z»2+l 
14.0  GO  TO  100 
150  LET  0*=U$(Z) 

1S0  LET  US<Z>=U$(B) 

170  LET  U«(B)sO$ 

180  GO  TO  13© 

190  PRINT  U $  <  G3 

200  LET  G=G-i 

210  IF  G>0  THEN  GO  TO  90 


RUN 

RRNDOH 

RRZZLE 

RUNNER 

RRNSRCK 

RANDOM 

RRNSRCK 

RRZZLE 

RUN 

RUNNER 


String  handling 

Our  discussion  of  string  arrays  leads  us  neatly  into  strings, 
and  string  handling.  As  you've  probably  realised  by  now,  a 
string  is  a  collection  of  alphanumeric  characters  within  quote 
marks  (including  symbols  and  spaces,  if  desired).  It  is 
assigned  to  a  variable  whose  name  is  a  letter,  followed  by  a 
dollar  sign.  Strings  are  assigned  in  much  the  same  way  as  are 
numeric  variables,  by  a  statement  of  the  form  LET  A$  — 
"HI”. 


There  are  a  number  of  very  useful  string  functions,  which  can 
be  used  for  manipulation  of  strings,  and  for  extracting  parts 
of  the  strings.  The  functions  are: 

COOE  X$  —This  gives  the  character  code  of  the  first 
character  in  X$,  so  if  X$  equalled  MICRO, 
CODE  X$  would  give  77. 
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CHR$  77 


X$(TO  3) 

LEN  X$ 


X$(n  to  m) 


X$(3  TO) 


STR$  A 


VAL  X$ 


We  can  check  to  see  if,  in  fact,  77  is  the  code 
of  the  first  letter  of  X$  (he.,  if  it  is  the  code  of 
M)  by  asking  the  computer  to  PRINT  CHR$ 
77.  This  gives  an  M.  In  effect,  CHR$  is  the 
opposite  of  CODE,  and  turns  a  code  back  into 
a  character. 

—This  gives  a  string  containing  the  n  left 
most  characters  of  X$,  so  X$  (TO  3)  will  give 
"MIC". 

—  This  function  gives  the  length  of  a  string,  so 
using  our  string,  X$,  of  "MICRO",  we  get 
LEN  X$  of  5. 

—This  string  function  produces  a  string  from 
X$  which  lies  between  characters  n  and  m, 
starting  from  character  number  n.  X$  (2  TO  4) 
gives  "ICR". 

—This  function  is  the  opposite,  as  may  be 
expected,  of  X$  (to  n),  and  gives  the  n 
rightmost  characters  in  the  string.  X$  (3  TO) 
gives  "CRO". 

—This  turns  a  variable  A  into  a  string,  so  if  the 
variable  was  234,  the  string  version  would  be 
"234".  This  may  not  seem  to  be  much  use, 
but  allows  certain  manipulation  of  numbers 
when  they  are  strings  which  would  be 
extremely  difficult  in  their  numeric  form.  We 
look  at  STR$  in  more  detail  shortly. 

—This  is  the  'opposite'  of  STR$  A  and  takes 
the  numeric  value  of  the  string  and  turns  it 
into  a  number.  Thus  VAL  X$,  where  X$ 
equals  "22  +  34",  would  return  56. 


Here  is  a  printout  from  the  computer  showing  the  string 
functions  in  operation. 


10  PRINT  "LET  X*=~MICRD~" 

20  LET  X  5  ="fiIDRG  " 

30  PRINT  "CODE  X*-";CO£VE  X* 

4-0  PRINT  "C HR*  77r-C-HR$  77 
30  PRINT  "X*C3  TO  3  TO 

60  PRINT  "X*t  TO  TO  3 


no 


7®  PRINT  "LEN  X*=";LEN  X* 

8®  PRINT  "X$<2  TO  4.J=";X*f2  TO 
4-) 

9®  PRINT  "LET  X*  =  '23 +35  "  '' 

1®0  LET  X*="23+35" 

110  PRINT  '* URL  X*  =  " ;  URL  X$ 

1S0  PRINT  "LET  X  =34-'* 

130  LET  X  =34- 

14-0  PRINT  "LET  X*=STR*  X” 

150  LET  X*=STR*  X 
16®  PRINT  "X0  =  ";X» 

LET  X$=v MICRO' 

CODE  X$=77 

CHR*  77=M 

X$  i  '3  TO  i  =CRO 

X* (  TO  3) =MIC 

LEN  X*=S 

X*  (2  TO  4->  =  ICR 

LET  X*  =  •'23+35-' 

URL  X*=58 
LET  X  =34- 
LET  X*=5TR4  X 
X  $  =34. 


Using  LEN 

If  you  wish  to  PRINT  a  certain  number  of  a  particular 
character,  for  example  if  you  want  to  draw  a  line  of 
characters  for  underlining,  then  here  are  two  methods. 
Obviously,  different  headings  will  be  of  different  lengths,  so 
you  need  to  know  how  many  characters  to  PRINT.  If  you're 
printing  a  string,  such  as  A$,  you  use  the  function  LEN  to  tell 
you  the  length  of  A$,  hence  this  is  the  amount  of  characters 
to  PRINT. 

(1)  10  FOR  A  =  1  TO  LEN  A$ 

20  PRINT  "  - 
30  NEXT  A 
40  PRINT 

Line  40  moves  the  PRINT  position  to  the  next  line  ready  to 
continue.  Omit  it  if  you  do  not  need  it.  The  next  method  is  a 
lot  faster  and  uses  only  one  program  line. 


in 


(2)  10  PRINT  " - 

- "  (TO  LEN  A$) 

The  only  disadvantage  is  that  you  need  to  specify  how  many 
characters  are  required  in  quotes  even  though  they  may  never 
be  printed-  That  is,  you  need  to  know  the  longest  that  A$  can 
possibly  be  so  that  you  can  put  that  many  characters  in  the 
string  constant  in  quotes  after  PRINT. 


Using  STR$ 

STR$  is  a  very  useful  and  often  neglected  function.  As  we 
mentioned  a  few  pages  ago,  it  converts  a  number  into  its 
string  equivalent,  as  it  would  appear  when  PRINTed  on  the 
screen.  Try  this  program: 


IQ  PRINT  2 

S0  PRINT  STR$  2 

30  PRINT  1  S3 

4.0  PRINT  5TR$  ( 1,'3> 

5©  PRINT  3E15 

60  PRINT  5TR$  9E15 


You  should  get  these  results: 

a 

a 

© . 33333333 
O . 33333333 
9E  +  15 
9E  +  1S 

We  can  learn  a  lot  from  these  examples.  Firstly,  the  string 
generated  by  STR$  is  the  same  as  you  would  get  if  you 
PRINTed  the  number  on  the  screen.  Secondly,  numbers  of 
less  than  1  are  assigned  to  a  string  with  a  zero  before  the 
decimal  point,  providing  the  first  digit  after  the  decimal  point 
is  anything  by  0  (i.e.  the  number  is  equal  to  or  greater  than 
0.1  and  less  than  1 )  and  there  may  be  up  to  eight  digits  after 
the  decimal  point,  although  there  may  be  less  if  all  are  not 
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required.  So  there  may  be  up  to  ten  characters  in  the  entire 
string.  However,  if  the  number  to  which  STR$  is  applied  has 
more  than  8  digits  after  the  decimal  point,  it  is  rounded  off  to 
8  decimal  places,  e.g,  STR$  .333333339  is  "0,33333334". 
STR$  is  also  capable  of  generating  scientific  notation  (which 
you'll  recall,  we  discussed  earlier)  such  as9E  +  15.  Note  that 
although  the  computer  accepts  9 El  5,  STR$  assigns  it  as  9E 
+  15  —  that  is,  the  exponent  part  is  always  signed.  Very 
small  numbers,  e.g.  0.000009  are  assigned  thus:  STR$ 
0.00000009  is  "9E-7".  When  using  STR$,  it  is  often 
wise  to  limit  the  values  of  the  number  so  that  STR$  does  not 
begin  to  use  scientific  notation,  which  will  cause  problems. 

You  are  by  how  almost  certainly  thinking:  fine,  but  what  can 
you  do  with  it? 

The  main  use  is  to  convert  numbers  to  strings  so  that  we  can 
apply  the  computer's  string  handling  facilities  for  formatting 
or  rounding  off  to  a  given  number  of  decimal  places  or  other 
purposes  for  where  you  need  to  be  able  to  assess  a  number 
digit  by  digit.  Here  are  a  few  examples  of  the  application  of 
STR$. 

(i)  Lining  up  decimal  points.  Suppose  you  had  a  list  of 
numbers  to  print.  Try  this  program: 


10  LET  d=PNO*100 
£0  PRXMT  a 
30  LET  a  =3*10 
4-0  GO  TO  £0 


You  should  get  something  like  this: 


S,S31S43 
S5.QiS43 
85S  .  ±S4‘3 
858 1  »  54-3 
35315.4-  3 
Q53154.3 
Q5S1543  / 
3531 54 3* 


It  would  be  much  more  legible  and  readable  if  we  could  line 
up  the  decimal  point  and  this  is  often  very  useful.  Try  this 
routine: 
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le 

20 

f  3 

30 
4-0 

This  spaces  eveything  out  so  that  the  decimal  points  appear 
beneath  each  other  —  useful  for  a  chart  or  list  of  numbers 
where  you  may  wish  to  quickly  compare  several  numbers. 
Can  you  see  how  the  program  works?  Suppose  the  value  of  A 
was  69.433594.  What  the  program  does  is  take  the  integer 
part  of  A  (INT  A,  which  is  69),  converts  this  to  a  string  (STR$ 

I  NT  A)  then  measures  the  length  of  this  string  (LEN  STR$  INT 
A)  which  in  this  case  is  2.  It  then  uses  this  number  to  work 
out  how  far  back  across  the  screen  to  start  PRINTing  the 
value  of  A.  Note  how  this  is  done: 

TAB  15  -  LEN  STR$  INT  A 

This  means  that  15  is  how  far  across  the  screen  the  decimal 
point  is  placed,  and  then  it  counts  back  by  the  number  of 
digits  in  STR$  INT  A. 

(ii)  PRINT  to  a  given  number  of  decimal  places.  It  is  often 
necessary  to  PRINT  to,  say,  three  decimal  places.  You  will 
remember  that  the  above  example  printed  numbers  with  all 
the  digits  known.  We  can  use  STR$  to  regulate  how  many 
numbers  are  PRINTed  after  the  decimal  point.  Consider  this 
routine: 


79.02556 3 
T9© . 25260 
7903. S269 
79035.369 
790232.69 
7902336 . 9 

LET  asRNDflOG 

PRINT  TfiB  IS -LEN  5TR$  INT 


LET  a =3*10 
GO  TO  20 


0 . 189 
1.893 
16.934 
189.346 
1893-4-63 


114 


10  LET 

20  LET  a  ft =5TRft  a 

22  IF  THEN  LET  *ft  =  "0 

’*  ft 

2E  LET  b=LEN  *TRft  XNT  URL  Sft 
27  PRINT  TAB  15-b;(a*+r.w  AND 
b  =LEN  aft)  +'*000'*)  C  TO  b+*) 

30  LET  a-a  +  10 
+0  OO  TO  20 

This  will  PRINT  to  three  decimal  places,  adding  both  leading 
zeros  (0  at  a  beginning)  and  trailing  zeros  {0  at  end)  if 
required.  To  get  it  to  PRINT  to  Z  decimal  places,  make  the 
following  changes  to  line  27;  add  as  many  spaces  to  A$  as  the 
number  of  decimal  places  you  require  {i.e.  Z  zeros),  and  you 
should  make  the  slicer  statement  (TO  B  +  1  4-  Z). 

Here  is  a  line  by  line  explanation: 

Line  10  sets  the  value  of  A  to  start  off  with. 

Line  20  converts  A  to  a  string 

Line  22  adds  a  zero  before  the  first  digit  if  it  is  a  decimal  point. 
Unfortunately,  the  STR$  function  is  not  uniform  in  its  action 
in  that  it  sometimes  supplies  a  leading  zero  for  numbers  less 
than  1  and  sometimes  doesn't,  depending  on  whether  the 
first  digit  after  the  decimal  point  is  0.  Therefore  it  is  a  simple 
matter  to  check  if  a  zero  is  required  or  not  —  if  the  first 
character  is  a  decimal  point,  add  a  zero. 

Line  25  makes  B  equal  to  the  number  of  digits  in  the  integral 
part  of  the  number  we're  PRINTing  by  measuring  the  length 
of  the  integral  part  of  the  string  A$.  It  is  necessary  to  use  VAL 
A$  rather  than  A  because  the  computer  may  have  an  anomaly 
between  the  last  digit  of  the  value  of  A  and  A$  as  set  up  by 
STR$,  which  may  in  the  odd  case  cause  a  problem. 

Line  27  which  spaces  the  PRINT  position  as  in  (r)  above,  then 
sets  about  PRINTing  A$  to  3  decimal  places.  First  of  all,  A$  is 
PR  IN  Ted  completed,  then  a  decimal  point  is  added  if  A$ 
already  represents  a  whole  number  and  enough  zeros  to 
make  up  three  decimal  places.  You  may  be  wondering  why 
add  4  to  B  —  surely  we're  PRINTing  to  three  decimal  places? 
Remember  the  decimal  point  —  that's  an  extra  character.  For 
the  purpose  of  the  slicing  statement,  the  part  before  is  treated 


as  one  long  string  provided  it  is  ail  in  brackets.  All  we've  done 
is  add  characters  to  pad  out  A$  to  at  least  three  decimal 
places,  then  PRINT  up  to  3  digits  after  the  decimal  point.  This 
routine  does  not  round  off  the  third  decimal  place. 


(ill)  Saving  memory,  it  is  often  possible  to  save  memory  by 
using  strings  to  hold  numbers,  instead  of  numeric  variables 
and  decode  them  later  using  VAL.  You  can  store  the  number 
in  a  string  variable  using  STR$: 

LET  A$  =  STR$(1 024) 

and  decode  them  later  as  required  using  VAL: 

PRINT  VAL  A$ 

You  will  often  find  that  you  use  up  more  memory  in 
converting  numbers  In  this  fashion  than  you  would  in  using 
proper  numeric  variables,  but  sometimes  this  mathod  can 
work  wonders. 

T ry  applying  VAL  to  an  expression  like  "ATN  1  x  4",  It  works, 
and  this  is  oftan  quite  a  useful  facility.  You  can  have  the  name 
of  a  numeric  variable  in  quotes  and  provided  it  has  previously 
been  defined  or  assigned,  it  will  be  successfully  evaluated.  In 
fact  VAL  can  be  applied  to  all  sorts  of  numeric  expressions, 
and  is  sometimes  used  in  place  of  DEF  FN. 

It  may  also  be  useful  if  you  wish  to  generate  random  numbers 
several  times  in  a  program.  At  the  start  of  the  program  have  a 
statement  line  LET  A$  -  "RND  *  6"  and  every  time  you  want 
a  random  number  you  would  type  LET  R  =  VAL  A$. 
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INKEY$ 

You  do  not  need  to  press  ENTER  after  pressing  a  key  when 
INKEY$  is  used,  as  our  next  program  makes  clear. 


Try  the  following.  Enter  a  number  from  one  to  nine,  by 
pressing  the  key  of  that  number,  and  you'M  see  it  print  out 
YOU  PRESSED  6,  YOU  PRESSED  1  and  so  on.  Touch  the 
zero  key  to  end,  and  it  will  print  out  YOU  PRESSED  0  and 
then  stop. 


1®  REM  INKEY*  DEMO  ** 

2©  PAUSE  1®® 

4-®  LET  R*=INK£Y* 

5®  PRINT  "YOU  PRESSED  ";R* 
S®  IF  TMEN  STOP 

7®  GO  TO  2® 


YOU  PRESSED  S 
YOU  PRESSED  7 
YOU  PRESSED  S 
YOU  PRESSED  5 
YOU  PRESSED  £ 
YOU  PRESSED  S 
YOU  PRESSED  3 
YOU  PRESSED  5 
YOU  PRESSED  5 
YOU  PRESSED  4- 
YOU  PRESSED  S 
YOU  PRESSED  3 
YOU  PRESSED  S 
YOU  PRESSED  ® 


The  ne^f  program  —  PREDICTION  —  also  uses  INKEY$.  In 
this  game,  you  have  to  try  and  anticipate  the  number  (from 
one  to  nine)  the  computer  will  think  of  next.  The  computer's 
number  is  shown  on  the  screen  near  the  middle,  and  the 
lowest  number  is  the  score.  The  lower  the  score  at  the  end 
(when  you  manage  to  successfully  predict  the  computer's 
number),  the  better.  The  screen  will  stay  blank  until  you  press 
a  key.  The  words  'THE  SCORE  IS"  will  flash  off  and  on. 
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YOUR  NUMBER  IS  4. 


MV  NUMBER  IS  I 
THE  SCORE  IS  1 


10  REM  **PREDICTXON*3 
£0  LET  E=9 

4-0  LET  0=0 
SO  RRUSE  100  __ 

11  pllNT*BTN8fs!  ink  RND,7;PP 

PERS ; "  ySuRNUMBER  I? 

•ao  LET  0=0  +  1:  BEEP  *  02  ,  0*3  . 

ill  let  U*=STR*  i IHT  (RN0#9> +i) 
ion  PRINT  BT  ie,  E;  j  INK  RNDa-7/ 
PAPER  9;”  MY  n6mBE:R  IS  **  MJ*i  “ 

9  fe 

ISO  PRINT  AT  14.,  E;  ;  INK  RND+7; 
PAPER  9;  FLASH  1;  BRIGHT  1 ; " 
the  SCORE  is 
135  STOP 

14-0  IF  U*=A*  THEN  BEEP  «01,RN£>» 
30;  GO  TO  130 
150  GO  TO  50 


The  next  program  —  MAZE  MAKER  —  also  shows  INKEY$  in 
action.  Using  the  "A",  "Z",  "K"  and  "M"  keys,  you  have  to 
move  the  $  sign  from  the  bottom  left-hand  corner  to  the  top 
right-hand  one,  without  crossing  any  of  the  little  white 
squares.  Note  that  no  path  through  is  guaranteed,  and  there 
is  no  mechanism  for  checking  that  you  don't  cheat.  At  the 
end,  the  number  of  'moves'  it  took  you  is  printed  on  the 
board. 


10  REM  JftHRZE  HftKER** 

20  REM  USE  THE  A  Z  M  K  keys 
30  REM  TO  MOUE  THE  S  SIGN 
4.0  REM  FROM  THE  BOTTOM 
50  REM  LEFT-HAND  CORNER  TO  THE 
60  REM  TOP  RIGHT. 
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7©  BORDER  2:  PAPER  7:  CLS  :  BR 
IGHT  1 

S0  LET  5«0 
90  FOR  Y»1  TO  704. 

100  LET  T=INT  (RND*3> 

110  PRINT  INK  (RNDs5+1J;  ( “M”  RN 
D  T=0)+<”  “  RND  T  <  >0)  ; 

120  NEXT  Y 

13®  PRINT  RT  0,0;*'  " ;  AT  i,®;“ 

i  i 

14-0  LET  X  =  30 :  LET  Y  =  19 
150  LET  M«X 
16©  LET  N=Y 

170  PRINT  RT  Y,X;  INK  2; 

160  LET  S»5fl 
190  LET  R*=INKEY$ 

200  IF  A  Si  ®  ”  THEN  GO  TO  190 
210  IF  A$=”A“  RND  Y  >0  THEN  LET 

Y=Y-1  _ 

220  IF  A$=” Z”  RND  Y <20  THEN  LET 

Y  =  Y  + 1 

230  IF  R$ » **K *'  RND  X<31  THEN  LET 

X»X  +  1 

24.0  IF  A$  =  “ M*'  RND  X>0  THEN  LET 

X  =X  —  1 

250  IF  X=0  RND  Y =0  THEN  GO  TO  2 
30 

260  PRINT  RT  N,H;“  “ 

2 70  GO  TO  1S0 

280  PRINT  RT  10,10;  FLASH  1;  BR 

IGHT  1; “YOU  MADE  IT” 

290  PRINT  * ' 'TRB  6;  FLASH  1;  BR 

IGHT  1;  “XT  TOOK  YOU  ”;S;“  MOOES” 

Note  in  line  110  how  use  is  made  of  the  computer's  togic 
methods  of  evaluation.  This  line  ensures  that  if  T  (generated 
in  the  previous  line)  is  zero,  a  solid  square  is  printed,  and  a 
blank  space  is  generated  if  T  is  greater  than  zero.  This  is  a 
memory-efficiqpt  way  of  emulating  the  IF/THEN/ ELSE 
command  available  on  some  other  computers.  This 
technique,  and  similar  ones,  are  discussed  in  greater  detail 
elsewhere  in  the  book. 


If  you  want  a  time  limit  on  user  responses,  use  this  method. 
Suppose  the  user  had  only  a  few  seconds  to  decide  whether 
or  not  to  have  another  game.  If  he  or  she  was  too  slow 
deciding  then  the  program  stopped.  For  the  purpose  of  this 
routine  suppose  the  user  had  to  press  R  for  a  re-run: 


10  FOR  F=i  TO  100 
30  LET  R$=INKEY« 

30  IF  R*="R“  THEN  GO  TO  60 
4-0  NEXT  F 
50  STOP 

60  PRINT  “RE-RUN” 

70  RUN 

Alternatively,  you  can  make  use  of  the  frame  counter,  for 
timing  inputs  or  anything  else. 

To  use  the  frame  counter  use  this  routine  to  first  set  the 
timer: 

POKE  23673,  255 
POKE  23672,  255 

and  to  use  its  value  at  any  time  use: 

LET  T  =  (256  *  PEEK  23673  +  PEEK  236721/50 
This  will  give  you  a  fairly  accurate  readout  in  seconds  if  you 
PRINT  T.  Remember  that  PAUSE  and  BEEP  use  the  frame 
counter  so  it  cannot  be  used  for  timing  if  you  are  using 
PAUSE  or  BEEP  in  your  program.  Try  this,  for  a  printout  in 
seconds. 


10  POKE  23673,355 
30  POKE  23672,355 
30  LET  t=<256*PEEK  2367 3+PEEK 
33673) ✓50  _ 

4-0  PRINT  RT  0,®.;  t;” 

S0  GO  TO  3© 


And  this  for  a  digital  clock: 


10 

30 

30 

4-0 

50 

60 

70 

60 

110 

120 

130 

14.0 

150 

160 

PEEK 


REN  Digital  Clock 
©ORDER  1:  PRPER  2;  C1.S 
INK  7  _ 

INPUT  “Enter  hours  ,h 
INPUT  “Enter  jiinuts^ 
1ST  <5.  st0 

POKE  23673,255 
POKE  23673 , 253 
PRINT  RT 


rr%in  i  n  *  >  ♦'  *  /  .* 

IF  nU0  THEN  PRINT  ”0“; 


print  »;*’ 

IF  S<10  THEN  PRINT  •*©"; 
PRINT  s; “  ” 

LET  s  =INT  (  (256*PEEK  23673+ 
33672) /50) 
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170  IF  S >59.3999  THEN  LET  »«»♦! 
:  POKE  93573,255:  POKE  23672,255 
160  IF  M»60  THEN  LET  h=h+l:  LET 

lit  =  0 

190  IF  h«13  THEN  LET  h =1 
200  GO  TO  110 


If  you  wish  to  time  accurately,  without  resetting  23673  and 
23672  back  to  zero  over  and  over  again,  refer  to  the  PEEK  and 
POKE  section,  a  little  later  in  the  book. 


READ/DATA/RESTORE 

READ  and  DATA  are  very  convenient  ways  of  accessing 
information  within  a  program,  and  are  relatively  simple  to 
use.  Enter  and  run  the  following  program,  which  shows 
READ  and  DATA  in  action,  and  then  return  to  the  book  for  an 
explanation  of  how  it  works. 

10  REM  RERD.'DRTR 
2©  REM  *********** 

30  REM  RERD  THE  MTfl 
4-0  REM  *********** 

50  DIM  B(5J 
60  FOR,  R  =  1  TO  5 
70  READ  S(R.)  # 

80  NEXT  R 

30  REM  *********** 

100  REM  RERD  IT  BACK 
110  REM  *********** 

120  FOR  0=5  TO  1  STEP  -1 
130  PRINT  8(C) 

14.0  NEXT  C 

150  DRTfl  13,352*1,83,2,139999 
RUN 

199999 

2 

88 

3524. 1 
13 


In  line  70,  the  computer  comes  across  the  instruction 
READ. . .  Whenever  it  finds  a  READ  instruction,  it  goes  to 
the  first  item  following  the  word  DATA,  and  READS  that,  in 
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this  case,  into  an  array.  The  DATA  items  can  be  anywhere  in 
the  program  (although  it  is  useful  to  keep  them  fairly  close  to 
the  READ  statement  which  refers  to  them). 

Return  to  the  program  TABULATOR  ROCKET  RANGE  which 
we  used  earlier  in  this  book. 


In  the  first  program  in  this  section,  the  DATA  is  numbers,  and 
these  are  assigned  to  numerical  variables  (the  elements  of  the 
array).  In  TABULATOR  ROCKET  RANGE,  the  DATA  is 
strings  (line  220)  and  these  are  assigned  in  turn  to  the  string 
variables  A$  and  then  printed  out  in  line  120,  through  the 
loop  labelled  Tocketr.  There  is  a  third  word  which  goes  with 
READ  and  DATA  —  RESTORE.  This  tells  the  computer  to  go 
back  to  the  start  of  the  list  of  DATA  and  start  READing  from 
the  first  item  again.  Here  is  another  sample  program,  showing 
DATA  in  the  form  of  strings,  and  illustrating  RESTORE  in 
action. 


10 

20 

30 

A© 

S3 

60 

70 

75 


REM  RERD/DfiTfi 

REM  RERD  THE  DRTR 
REM  *********** 

DIM  <21, 5 'i 

FOR  R= 1  TO  21 

READ  B$(R>  _ 

IF  3*INT  (fi/3) =fi  THEN  RESTO 


RE 

80  NEXT  R 

90  REM  *********** 

100  REM  PRINT  IT  BACK 
110  REM  *********** 

120  FOR  C=21  TO  1  STEP  -1 
130  PRINT  “  ; 


15© 

DRTA  ‘WET" 

, -kill- 

,  "DIE" 

DIE 

K  ILL 

wet 

DIE 

KILL 

WET 

DIE 

KILL 

WET 

DIE 

KILL 

WET 

DIE 

KILL 

WET 

DIE 

KILL 

WET 

WET 

DIE 

K  ILL 

In  this  program,  there  are  only  three  items  of  DATA,  so 
RESTORE  must  operate  once  the  three  have  been  read.  Line 
80  ensures  that  this  occurs  every  time  the  three  are  read 
while  running  through  the  A  loop  from  1  to  21 .  Notice  that 
string  DATA  must  be  enclosed  within  quote  marks. 
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As  you  have  seen,  a  READ  command  is  used  within  a  line  to 
assign  values  to  variables  from  a  sequence  of  items  contained 
within  a  DATA  statement.  Each  item  of  DATA  is  separated 
from  others  by  a  comma.  A  READ  statement  is  made  up  of  a 
line  number,  followed  by  the  word  READ,  and  the  variable 
names  which  are  to  be  assigned  to  the  variables  taken  from 
the  DATA  line. 


When  a  program  comes  to  a  R  EAD  statement,  it  will  —  as  we 
pointed  out  —  move  to  the  first  DATA  statement,  no  matter 
where  it  is  in  the  program.  The  first  value  of  the  DATA 
statement  will  be  assigned  to  the  first  variable  in  the  READ 
statement.  Apart  from  reading  a  DATA  statement,  the 
computer  takes  no  notice  of  it,  and  will  treat  it  as  a  REM 
statement.  Move  line  150  up  to  line  25,  and  run  the 
preceding  program  again.  You'll  see  that  (a)  the  computer 
ignores  line  25,  and  (b)  still  READs  it  successfully. 


Even  if  the  DATA  is  scattered  all  over  the  program,  the 
computer  will  seek  it  out,  as  the  following  program  shows. 

10  REM  RERD./DRTR 
30  DRTR  “HI",? 

30  DIM  B$<21,4.) 

4-0  DIM  Z(S1) 

60  FOR  Rml  TO  31 
?©  RERD  B${R),ZCR> 

SB  IF  3*INT  fR^3>  =R  THEN  RESTO 

RE 

as  DRTR  “GOSH" 

90  NEXT  R 
95  DRTR  56 ,  “BOB** 

130  FOR  C«1  TO  31 
14.0  PRINT  B  $  (  C  )  ,2  (C) 

14.5  DRTR  33 
150  NEXT  C 

It  is  important  to  ensure  that  you  have  enough  DATA  items 
for  the  number  of  times  you  tell  the  computer  to  READ. 
Delete  line  145  in  the  above  program,  and  run  it  again.  You 
will  get  the  error  message  "E  OUT  OF  DAT/\,  70:1”  where 
the  computer  had  read  two  items  of  numeric  DATA,  than 
was  unable  to  find  a  third  because  RESTORE  had  not  yet 
been  evoked. 


Remember  that  although  it  is  not  essential  to  have  the  DATA 
items  near  the  READ  lines  which  are  looking  for  them,  it  will 
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probably  make  your  programs  easier  to  understand  if  they  are 
held  in  this  manner.  It  also  makes  it  easier  to  know  which 
lines  to  alter  ff  you  are  working  on  a  program. 


User-defined 

graphics 

One  of  the  most  exciting  features  on  the  ZX  Spectrum  is  the 
facility  for  defining  your  own  graphics.  It  is  simple  to  do  so, 
and  allows  you  to  tailor  the  visual  output  of  your  program  to 
your  own  wishes.  In  this  chapter,  well  develop  a  greatly 
simplified  form  of  the  arcade  game  'Pacman',  to  show  the 
user-defined  graphics  in  action.  Our  game  will  be  called 
DOTMAN,  and  will  consist  of  a  single  'Pacman'  creature  who 
is  trying  to  escape  a  single  'Ghost',  while  at  the  same  time 
trying  to  eat  as  many  dots  as  possible. 

Graphics  are  defined  on  an  eight  by  eight  grid,  like  the 
following: 


We  can  select  any  key,  from  A  to  U,  and  impose  our  own 
graphic  on  that  key,  so  whenever  it  is  selected,  instead  of 
printing  the  tetter,  it  will  print  our  own  graphic.  Although  — 
of  course you  lose  graphics  when  you  turn  the  computer 
off,  they  are  not  effected  by  NEW,  so  you  can  NEW  a 
program,  and  still  have  your  graphics  available  for  a 
subsequent  game. 
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You  change  the  contents  of  the  graphics  of  a  key  by  a  short 
POKE  loop.  Here's  an  example.  If  you  wanted  a  diamond 
shape  to  appear  every  time  you  pressed  the  CAPS  SHIFT  and 
GRAPHICS,  so  the  cursor  was  a  G,  then  pressed  the  A,  you 
would  proceed  as  follows. 

First,  on  your  grid  (and  there  are  several  of  them  at  the  end  of 
this  chapter,  which  you  could  photocopy  to  get  a  number  of 
them  for  future  use),  we  draw  the  pattern  we  want  to  create. 
A  diamond  could  look  like  this: 


We  POKE  it  into  place  using  a  series  of  eight  DATA 
statements,  in  which  a  zero  equals  a  blank  little  square,  and  a 
one  equals  a  filled-in  square.  The  top  line  of  this  diamond 
shape  is  then  represented  by  00001000,  an  eight-digit 
binary  number.  The  second  line  of  the  diamond  is 
00010100.  Compare  this  with  the  black  squares  on  our 
diagram.  We  indicate  to  the  computer  that  the  number  we 
are  using  is  a  binary  one,  by  preceding  the  number  in  the 
DATA  statement  with  BIN,  which  is  available  from  the  B  key. 
Here  is  the  'diamond  creating'  routine  in  full: 


10  REM  DIAMOND 
20  FOR  U =0  TO  7 
30  READ  © 

4.0  POKE  USR 
5©  NEXT  J 
6©  PRINT  “P" 

70  DRTR  BIN  00001000, BIN  00010 
100 , BIN  00100010, BIN  01000001, BX 
N  00100010, BIN  00010100, BIN  0000  \ 
1000, BIN  00000000 


Note  that  the  A  in  line  60  is  an  A  achieved  after  we  have 
gone  into  the  graphics  mode.  Run  the  program,  and  even  the 
A  in  the  fisting  changes,  so  that  line  60  now  looks  like  this: 


12& 


e©  PRINT 


There  is  no  doubt  that  we  have  created  quite  a  passable 
diamond  shape,  as  the  printout  shows: 


<><>0<>0<?  00'00‘><K^K»  ❖OOOO <XX>- * 


You  may  have  realised  that  the  leading  zeroes  in  the  DATA 
items  were  redundant.  However,  we  prefer  to  leave  them  in, 
just  because  it  makes  it  much  easier  to  check  up  on  the 
elements  within  the  DATA  line  if  something  goes  wrong. 
Let's  try  for  a  different  shape.  Enter  the  following  DATA 
statement  and  then  run  it  to  see  what  you  get: 


70  DRTR  ©IN  ©0110000,BIN  ©12.10 
000.BIN  ©111  1 1 10  jt  BIN  01011111, BI 
N  I00Ulii^BIN  0O01 
©010  <  B IN  00000000 


This  was  intended  to  be  an  elephant,  and  it  worked  pretty 
well  as  you  can  see  on  your  screen. 

**************** 

**************** 

**************** 

Let's  get  down  to  creating  our  'Pacman'  game,  DOTMAN. 
We  follow  the  process  of  getting  a  program  to  work,  before 
defining  the  graphics  characters  which  are  part  of  the 
program.  This  ensures  that  the  program  itself  becomes  the 
important  thing,  not  the  graphics  which  will  be  used  in  it.  It  is 
perfectly  possible  to  see  a  whole  program  working,  just  using 
letters,  before  deciding  exactly  what  each  letter  will 
represent. 

Our  game  will  be  fairly  simple.  On  a  1 4  x  1 4  grid,  there  will  be 
one  DOTMAN,  who  will  be  under  our  control,  a  GHOST 
under  the  control  of  the  computer,  and  a  series  of  dots  which 
can  be  eaten  by  the  DOTMAN.  A  few  walls  will  be  on  the  grid 


(a  maze)  and  neither  the  GHOST  nor  the  DOTMAN  can  get 
through  those. 

At  the  end  of  the  book,  in  the  section  called  'Improving  your 
programs',  it  is  suggested  that  you  map  out  the  major  parts  of 
the  program  before  you  begin,  so  the  structure  of  the 
program  is  clear,  even  before  you  begin  working  on  the 
program.  If  you  follow  through  the  process  we'll  describe, 
you'll  see  how  useful  this  can  be. 


Dotman 

For  DOTMAN,  the  program  structure  will  be  as  follows: 


1-  999: 
1000-1999: 
2000-3999: 
4000-4999: 
5000-5999: 
6000-6999: 
7000-7999: 
8000-8999: 


Send  action  to  parts  of  the  program  to  start 
Player  controls  DOTMAN 
GHOST  moves 

End  of  game  if  GHOST  lands  on  DOTMAN 

Define  DOTMAN 

Define  GHOST 

Print  maze 

Initialise  variables 


Once  this  program  is  underway,  it  will  loop  from  1000 
through  to  3999  (or  whichever  is  the  highest  'GHOST  moves' 
number)  over  and  over  again,  until  the  GHOST  gets  the 
DOTMAN,  at  which  time  the  program  will  proceed  to  line 
4000  for  the  end  of  game  routine. 


Let's  write  the  first  control  routines: 

II?  GO  SUB  Sfi>00 
SO  GO  BUB  7088 
30  GO  SUB  SOO0 
4-8  GO  BLIB  &000 

This  is  all  that  is  needed  at  this  point.  And,  as  we're  going  to 
write  the  whole  game  before  defining  the  DOTMAN  and  the 
GHOST,  we  can  add  6999  RETURN  and  5999  RETURN  right 
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now,  and  get  on  with  building  the  maze,  after  we  have 
defined  the  variables.  GA  is  the  position  of  the  GHOST 
across,  GD  the  'down'  coordinate  of  the  GHOST.  EGA  and 
EGD  are  the  variables  to  'erase'  the  GHOST  when  it  moves. 
Similarly,  DD  and  DA  are  for  DOTMAN  across  and  down, 
and  EDD  and  EDA  for  erasing. 

We  put  in  the  maze,  and  the  routines  to  move  the  DOTMAN 
and  the  GHOST,  and  our  program  looks  like  this: 


GO  SUB  SO®© 

GO  SUB  7000 

GO  SUB  S000 

GO  SUB  6000 

REM  move  dotman 

REM  dotman  is  graphic  B^C 

PRINT  ST  EDD, EDA;"  " 

PRINT  RT  DD,DA;A* 

LET  EDD=DD:  LET  EDA=DA 
IF  INKEY*="9"  THEN  IF  DA 


IS 
20 
30 
<10 

1000 
1010 

1^20 
1030 

1035  , _ _ _ _ _ _ 

1040  IF  INKEY*="9"  THEN  IF  DA < 13 
THEN  IF  SCREENS  tDD  , 0A  +  1J  <  >  “X** 
THEN  LET  DA=DA+1:  LET  A*="B" 

1050  IF  INKEY*  ='*S**  THEN  IF  DA>0 
“  SCREEN*  tDD,DA-l>  O  #,X“  T 
DA=DA  — 1 :  LET  A*=,,C'’ 
INK£Y*=“7“  THEN  IF  DD>0 
SCREEN*  (DD-1,DA.'  0**X"  T 
DD=DD-1:  LET  A*=“E" 
INKEY*  =  *‘S“  THEN  IF  DD  <  13 
SCREEN*  (DD+1 ,DAJ < >"X" 


THEN  IF 
HEN  LET 
1060  IF 
THEN  IF 
HEN  LET 
1070  IF 

THEN  IF  _ .  ..  _ 

THEN  LET  DD=DD+1:  LET  A*="D" 
1030  IF  RND>.2  THEN  GO  TO  1000 
1990  REH  GHOST  IS  GRAPHIC  G 
2000  PRINT  AT  EGD ,  EGA;  ’*  *• 

2010  PRINT  AT  GD,GA;“6" 

20 IS  LET  EGD=GD:  LET  EGA=GR 
2020  IF  DD  <  GD  THEN  IF 
D-1,GAJ  CH'X"  THEN  LET 
2030  IF  DD  >  GD  THEN  IF 
D  +  i,GA>  <>-X“  THEN  LET 
2040  IF  DA  .■*  GR  THEN  IF 
&  Gfl  +  1)  <>**X‘*  THEN  LET 
2050  IF  DA  <  GA  THEN  IF 
P,GA-1>  <>*  X"  THEN  LET 
2999  GO  TO  1000 
4999  STOP 
5999  RETURN 

6999  RETURN 

7000  REH  BUILD  HAEE 
7010  FOR  G=1  TO  14 
7020  FOR  H=1  TO  14 
7030  PRINT 
7040  NEXT  H 


SCREEN* 

t'G 

GD =GD-1 

SCREEN* 

iO 

GD  =GD  + 1 

SCREEN* 

(G 

GA=GA+1 

SCREEN* 

VG 

GA=GA-1 
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7050 

PRINT 

7060 

NEXT 

G 

7070 

PRINT 

RT 

■n  -if  *  VW'j'Vh 

4S»  t  f  j  .A 

f 

7030 

*  > 

PR  INT 

RT 

3,3;  "X";RT 

*3fu;  "x 

7090 

« l 

PRINT 

RT 

A,3;  "X";flT 

7100 

PRINT 

RT 

5,3;  "XXX.X"; 

RT  5,9; 

"XXX*' 

7110 

PRINT 

RT 

6,6;  "X";  RT 

7120 

PRINT 

RT 

7,6;  ■*X*';RT 

7130 

PRINT 

RT 

3,3;  **X‘* ;  RT 

3 "X" 

AT  8 

i,9;  "X 

i  * 

714-0 

PR  INT 

RT 

10,3;  *'X‘* 

7150 

PRINT 

RT 

11,3;  ’’XXX.X" 

7160 

PRINT 

RT 

12,9;  "XXX*' 

7170 

RETURN 

3000  REM  URRIRSLES 
3010  LET  Dfl=S 
3020  LET  D0-0 
3030  LET  EDR=0 
304-0  LET  EDD=0 
3050  LET  GR-13 
3060  LET  GD  =  13 
3070  LET  EGA =13 
3030  LET  EGD=13 
3090  LET  SCORE =0 
3100  LET  AS =“8" 
3999  RETURN 


If  you  run  this,  you'll  see  we  have  a  version  of  the  program 
which  works,  after  a  fashion.  It  is  pretty  dull,  at  the  moment, 
but  do  not  be  disheartened.  You'll  be  pleasantly  surprised  at 
how  good  it  looks  when  we  finish.  It  can  be  improved  very 
simply,  even  at  this  point  by  adding: 

7065  INVERSE  1 
7165  INVERSE  0 

INVERSE  works  somewhat  like  BRIGHT  and  FLASH,  one 
means  on,  zero  means  off.  Run  the  program  again,  and  see 
the  effect  INVERSE  has  had  on  the  walls  of  the  maze.  This 
lifts  it  immediately,  doesn't  it.  There  must  be  four  DOTMEN, 
one  facing  each  direction,  so  that  the  mouth  points  the  way 
the  DDTMAN  is  moving.  This  is  why  the  variable  A$,  whTeh  is 
the  DOTMAN,  is  changed  at  the  ends  of  lines  1040  to 
1070. 

Add  the  following,  to  define  the  DOTMEN: 
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5000  REM  DEFINE  DOTMEN 
5010  FOR  0=0  TO  7 
502©  READ  © 

5030  POKE  USR  ,,B"+0,Q 
504-0  NEXT  J 

5050  DATA  BIN  00 1111 00  , BIN  01111 

111 /BIN  11111100, BIN  11110000, BI 

N  11111000, BIN  11111100, BIN  0111 

1111, BIN  00111100 

5050  FOR  0=0  TO  7 

5©70  RERD  Q 

5000  POKE  USR  ,'C“  +0,0 

5090  NEXT  O 

510©  DATA  BIN  ©011 1100, BIN  11111 

110, BIN  00111111, BIN  00011111, BI 

N  00001111, BIN  00111111, BIN  1111 

1110, BIN  00111100 

5110  FOR  0=0  TO  7 

5120  READ  O 

5130  POKE  USR  "D:,+w‘,© 

514-0  NEXT  O 

5150  DATA  BIN  00111100, BIN  01111 
110, BIN  11111111, BIN  11111111,51 
N  11110111, BIN  11100111, BIN  0100 
0010, BIN  01000010 
5160  FOR  0=0  TO  7 
5170  READ  © 

5IB0  POKE  USR  "E"  4-0,0 
5190  NEXT  O 

5200  DATA  BIN  01000010, BIN  ©10©© 
010 , BIN  11100111, BIN  11101111, BI 
N  11111111, BIN  11.11X111  ,BIN  ©ill 
1110, BIN  00111100 


We  sketched  a  number  of  possible  DOTMAN  figures,  before 
deciding  on  the  one  labelled  B.  This  diagram  was  rotated  to 
get  the  BIN  numbers  for  the  four  figures. 
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Add  some  colour,  by  inserting  INK  2  in  line  1030-  This  will 
print  red  DOTMEN.  INK  1 ,  in  line  2010  will  turn  the 
GHOST,  when  he's  complete,  blue. 

Here  are  our  working  sketches  for  the  GHOST. 


The  GHOST  we  finally  ended  up  with  is  a  close  cousin  of  the 
one  on  the  left  in  the  diagram-  Although  it  does  not  look 
particularly  promising  here,  it  worked  quite  well  on  the 
screen.  You'll  probably  find,  from  time  to  time,  that  you  will 
want  to  modify  the  final  graphic  when  you  see  it  on  the 
screen,  and  you'll  find  it  fairly  easy  to  work  directly  from  the 
screen,  soon  learning  which  bits  of  the  DATA  statement  to 
change.  Anyway,  here's  our  final  version  of  DOTMAN, 
complete  with  a  few  screen  printouts.  As  is  often  the  case, 
the  printouts  really  don't  do  justice  to  the  appearance  of  the 
game.  You're  sure  to  enjoy  playing  it,  and  working  out  ways 
to  improve  it,  and  make  it  more  like  the  arcade  game. 

One  change  you  might  like  to  make  is  to  add  a  routine  to 
generate  a  random  maze  {by  putting  X's  at  random  on  the 
grid  in  the  7000  subroutine).  As  well  as  this,  you  can  let 
the  DOTMAN  and  the  GHOST  start  at  random  positions  on 
the  maze.  A  'highest  score'  feature  could  also  add  interest. 
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SCORE  IS  94-2S 


SCORE  IS  £1213 
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SCORE  IS  47140 


SCORE  IS  106423 


END  OF  GAME 


10 

20 

30 

40 

1000 

1010 

,.E 

1020 

1025 

LET 

1030 

1032 


GO  SUB  3000 

GO  SUB  7000 

GO  SUB  5000 

GO  SUB  6000 

REM  wove  dotnan 

REM  dolman  is  graphic  S,C/D 


THEN 


PRINT  RT  EDD * EDR;  1 
IF  SCREEN*  C0D,DRJ  =*'  .  *' 
SCORE  =SCORE  +2357 
PRINT  RT  DD,DR;  INK  2;R*  ^ 
IF  GR=DR  RND  GD  =DD  TMEN  GO 


TO  4000 

1035  LET  EDD=DD.  LET  EDR=DR 
1040  IF  INK£y*  =  "  3  ’*  THEN  IF  DR  <13 
THEN  IF  SCREEN*  (  00,  DR  + 1  Jt  <>’*X" 
TMEN  LET  DR=OR+l;  LET  fl*="C" 

1030  IF  INKEY*  =  "5*'  THEN  IF  DR>0 
THEN  IF  SCREEN*  (DD/Dfl-li  <>"X"  T 
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HEN  LET  DR=Dfi-l:  LET  «*  =  ":»" 

10S0  IF  INKEY* ="7"  THEN  IF  DD>0 
THEN  IF  SCREEN*  fDD-i ,  DS.>  <  >  MX*‘  T 
HEN  LET  DD=DD-I:  LET  R*  =  ’‘i#" 

1070  IF  INKEY*  =  '‘&‘*  THEN  IF  £>£><13 
THEN  IF  SCREEN*  (DD  +  1 , DR> < > "X" 
THEN  LET  DD=D0+1;  LET  R*=‘#|" 

1930  IF  RND>.£  THEN  GO  TO  1000 
1935  PRINT  RT  7,13;  FLASH  1; "SCO 


RE  IS  ” ; SCORE 

1990  REH  GHOST  IS  GRAPHIC 
£000  PRINT  RT  EGD , EGA;  INK 


G 


RND*S 


3010  PRINT  RT  GD,GR;  INK  I;  'K&' 
£012  IF  GR -DP  RND  eD=DD  THEN  GO 
in  4-000 

2015  LET  £GD=GD:  LET  lgh=£A 
£0£0  IF  DD<GD  THEN  IF  SCREEN*  fG 
0-1,  GR>  <  >  "X"  THEN  LET  SD=6D-1 
2030  IF  DD>6D  THEN  Ir  SCREEN*  1 G 
D  +  l  <GA)  THEN  LET  GD  =GD  +  1 

204-0  IF  DfliGfl  THEN  IF  SCREEN*  £G 
D.GA  +  1J  O^’X'*  THEN  LET  6R=GR  +  1 
2050  IF  DR  < GR  THEN  IF  SCREEN*  £G 
D , Gfl-1>  <  > “X"  THEN  LET  GB=GR-1 
2999  GO  TO  1000 

4.00O  PRINT  RT  17,0;  INK  RND*S;  F 
RPER  9;  FLRSH  1; “END  OF  GAME" 
4-010  BEEP  .  0i,RND*ee 
4.020  PRINT  INK  RND*S;  FLRSH  1 ;  RT 
EGD , EGR;  "  " ; RT  GD , GR; 

4-030  PRINT  INK  RND*S;  FLRSH  1;  RT 
EDD,  EDR;  **  **;  RT  DD,0fl;‘’»" 

4-04-0  GO  TO  4.000 
500O  REM  DEFINE  DOTMEN 
5010  FOR  0=0  TO  7 
5020  REBD  © 

5030  POKE  USR  "B"+J(G 
5O4-0  NEXT  O 

5050  DRTR  BIN  00 111 100 , BIN  01111 

111, BIN  11111100, BIN  11110000, BI 

N  11111000, BIN  11111100, BIN  0111 

1111, BIN  00111100 

5060  FOR  0=0  TO  7 

5070  RERD  0 

5030  POKE  USR  "C”+0,Q 

5090  NEXT  O 

5100  DRTR  BIN  00111100, BIN  11111 

110, BIN  00111111, BIN  00011111, BI 

N '  BrN  00111111,  BIN  1111 

111®, BIN  0O111100 

5110  FOR  0=0  TO  7 

5120  RERD  O 

5130  POKE  USR  "D"+0,0 

514-0  NEXT  O 

5150  DRTR  BIN  00111100, BIN  01111 
110, BIN  11111111, SIN  11111111,01 
N  11110111, BIN  11100111, BIN  0100 
0010, BIN  01000010 


5120 

5130 

514-0 

5150 
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5160  FOR  U=0  TO  7 
5170  READ  O 
51S0  POKE  USR  "E"+U.Q 
5190  NEXT  U 

5200  DflTft  BIN  01000010 ,BIN  01000 
01 0  ,  B IN  11100111yBIN  11101111,61 
N  Ullllil  .BIN  llllllllyBXN  0111 
1110yBJN  00111100 

5999  RETURN 

6000  REM  DEFINE  GHOST 
6010  FOR  w‘=0  TO  7 
6020  READ  © 

6030  POKE  USB  "G"+U,G 
504.0  NEXT  U 

6050  DfiTfl  BIN  001 11000 y BIN  01111 
100yBIN  11010110yBIN  11010110yBX 
N  11111110yBIN  11111110, BIN  1010 
1010, BIN  10101010 

6999  RETURN 

7000  REM  BUILD  MB2E 
7010  FOR  G  =  1  TO  14- 
7020  FOR  H=1  TO  14- 
7030  PRINT  INK  RND*6;  •*  , 

704-0  NEXT  H 

70S0  PRINT 

7060  NEXT  G 

7065  INUERSE  1 

7©70  PRINT  RT  2,7;"XXXXX" 

7060  PRINT  BT  3 , 3;  "X" ;  RT  3,11;  “X 

7090  PRINT  BT  4,3; "X";fiT  4,11; "X 

7100  PRINT  BT  5,3;  "XXXX";  BT  5,9; 
’XXX" 

7110  PRINT  BT  6y6;*'X";BT  6,9;  "X" 
7120  PRINT  BT  7,6;"X";RT  7,9; "X" 
7130  PRINT  BT  6  „ 3;  **X " ;  BT  3,6;  "X" 
; BT  By  9;  "X" 

7140  PRINT  BT  10,3; “X" 

7150  PRINT  BT  11,3; "XXXX" 

7160  PRINT  BT  12,9;  “XXX** 

7165  INUERSE  0 

7170  RETURN 

8000  REM  URRIRSLE5 

6010  LET  DD=0 

0020  LET  DR =0 

0030  LET  £DD -0 

0040  LET  E0B=0 

3050  LET  GB *13 

8060  LET  G0=13 

6070  LET  EGB  =13 

6030  LET  EGD =13 

3090  LET  SCORE  =0 

3100  REM  GRAPHIC  B  IN  3110 

3110  LET  R*="C:” 

3999  RETURN 
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Clearing  a  part  of 
the  display 

This  is  a  useful  subroutine  that  enables  you  to  clear  any 
number  of  lines  from  the  bottom  of  the  screen.  It  enables  the 
instructions  to  be  kept  on  the  top  few  lines  of  the  display 
during  the  game,  or  the  score  or  other  special  instructions 
may  be  kept  on-screen  while  everything  else  is  cleared.  The 
subroutine  should  be  called  by  GOSUB  8010. 

S010  INPUT  "How  resny  tines,  to  be 
c leared?  c 

802®  IF  C  <0  OR  021  THEN  SO  TO  8 
810 

3030  FOR  f =£1  TO  21-C  STEP  -1 
884-0  PRINT  RT 

©ess  NEXT  f 
306©  PRINT  RT 
3070  RETURN 

Line  8010  asks  how  many  lines  you  want  to  clear,  starting 
from  line  21  at  the  bottom  of  the  screen  and  working  upwards 
—  it  looks  quite  impressive.  The  INPUT  statement  is  not 
idiot-proofed;  you  may  like  to  experiment  with  this  yourself. 
The  statement  in  line  8060  moves  the  PRINT  position  to  the 
start  of  the  part  of  the  screen  you've  just  cleared. 


Screen  scrolling  in 
BASIC 

Machine  code  programs  are  easily  written  to  block-load  large 
chunks  of  memory  from  one  location  to  another  to  enable,  for 
instance,  the  screen  to  be  block-loaded  in  certain  directions. 
BASIC  as  a  rule  is  usually  too  slow  to  enable  this  to  be  done. 
The  only  method  that  can  be  realistically  used  to  scroll  the 
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screen  is  to  store  an  image  of  the  screen  in  a  string  array  and 
PRINT  this.  Here  are  four  example  programs  that  enable  the 
entire  screen  to  be  scrolled  up,  down,  left  or  right. 


These  routines  are  noticeably  slower  than  the  command 
SCROLL,  especially  the  left  and  right  scrolls  because  those 
are  PRINTed  one  line  at  a  time. 

Upward  scroll 


5  REM  Upward  scroll 
10  DIM  a $1704) 

20  INPUT  3  $ 

30  PRINT  RT  0,0; a$ 

4-0  LET  a$  =  a$t33  TO  )  +" 

P  P 

5®  GO  TO  3® 


Downward  scroll 

5  REM  Downward  s-croll 
10  DIM  3*f704.» 

20  INPUT  a* 

30  PRINT  RT  O,0; a* 

40  LET  3*=" 

“♦aSf  TO  5721 

50  GO  TO  30 


Leftward  scroll 


sera  i  l 


5  REM  Leftward 
10  DIM  a  S  ( 704.> 

20  INPUT  3  * 

30  PRINT  RT  0,0; a* 

40  FOR  f=l  TO  673  STEP  32 
SO  LET  a*ff  TO  f*31J *»* < 
f  +31 J  +’*  " 

60  NEXT  f 
70  GO  TO  30 


TO 
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Rightward  scroll 


5  REM  Rightward  scroit 
1©  DIM  3*f70*.i 
20  INPUT  3$ 

30  PRINT  RT  0,0; a* 

4-0  FOP  f  =1  TO  B73  STEP  32 
SO  LET  3  *  (  f  TO  f  +31,1  =  '*  "  +3  *  (  f 


TO  f +30 > 

S0  NEXT  f 
70  GO  TO  30 


Saving  lines  at 
screen  edges 

The  easiest  way  to  accomplish  this  is  to  use  the  string  slicing 
facility  to  "SCROLL"  certain  parts  of  the  string  only.  First  of 
all,  the  upward  scroll.  L  is  the  number  of  lines  NOT  to  be 
scrolled. 


10  DIN  a  *  (704-.1 
20  INPUT  3$ 

25  INPUT  L 
30  PRINT  RT  0 , 0;  3  $ 

4-0  LET  3*(L*32  +  1  TO  .1  =3 $  i  CL  +11 
*32+1  TO  ) 

50  GO  TO  30 


Next  the  downward  scroll.  L  is  the  number  of  lines  not  to  be 
scrolled  at  the  bottom  of  the  screen. 


10  DIM  a  *(704.) 

20  INPUT  a* 

25  INPUT  L 
30  PRINT  RT  0.0: a* 

4-Q  LET  at  l  TO  704--L+32)  »’* 

•*  +a  *  t 

TO  704--  CL  +  1)  *32) 

50  GO  TO  3© 


The  same  technique  can  be  applied  to  the  sideways  scrolls, 
but  since  these  are  slow  enough  already  it  hardly  seems 
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worthwhile.  You  can  extend  this  idea  to  permit  lines  in  any 
part  of  the  screen  to  be  kept  stationary  while  those  above 
and/or  below  are  scrolled,  simply  by  modifying  the  string 
slicing,  but  if  you  require  complex  arithmetic  to  work  this  out 
then  you  may  slow  the  routine  down  excessively. 


Another  technique  you  can  apply  to  these  routines  is 
"wraparound”  whereby  anything  disappearing  off  any  edge 
promptly  reappears  on  the  opposite  edge.  Here's  how  to  do 
this  with  an  upward  scroll:- 


10  DIM  a$  (704.1 
£0  INPUT  a  $ 

30  PRINT  RT  0..  0;a* 

4-0  LETT  a$=3$(3G  TO  )+e$(  TO  OS 

50  GO  TO  OO 


And  a  downward  scroll  with  wraparound:- 


10  DIM  a* <704) 

20  INPUT  at 
30  PRINT  RT  0,0; a* 

40  LET  a  $  =  a  t <673  TO  )  +a $ t  TO  6 
V3) 

50  GO  TO  30 


A  leftward  scroll  with  wraparound 


10  DIM  a  $  ( 704) 

30  INPUT  a* 

30  PRINT  RT  0/0; a* 

40  FOR  f=l  TO  673  STEP  32 
SO  LET  aStf  TO  f +31A +1  TO 
f +31) +  a* (  f ) 

60  NEXT  f 
70  GO  TO  30 


For  a  rightward  scroll  with  wraparound,  change  line  50  to:- 

50  LETT  at  (  f  TO  f  +31)  =a*  f  f  +31)  + 
a$<f  TO  F  +30) 

Finally,  remember:  instead  of  using  PRINT  to  place  anything 
on  screen,  use  LET  A$(X)  =  "X",  since  anything  you  PRINT 
is  not  scrolled  —  only  the  contents  of  the  array  A$  appear  on 
screen. 
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Moving  graphics 

The  theory  behind  moving  graphics  is  that  first  we  draw  a 
character  in  one  position  for  a  short  time,  then  erase  it  and 
draw  it  in  another  position.  Variables  are  used  to  remember 
the  position  of  the  character.  Let  us  look  at  an  example 
program  which  we  can  draw  up  from  this  "theory": 

10  LET  x=0 
20  PRINT  RT 
30  PRINT  RT  5,*;"  " 

4.0  LET  >:=:*+ 1 
50  GO  TO  20 

This  is  not  a  very  good  program  —  the  black  blob  seems  to 
flash  on  and  off  as  it  moves  across  the  screen  and  the 
program  stops  with  an  error  report  when  the  blob  reaches  the 
right-hand  side  of  the  screen.  What  has  happened  is  that  X 
was  the  variable  that  told  the  computer  how  far  across  the 
screen  it  should  PRINT  the  black  blob,  and  if  the  number  is 
greater  than  31  then  your  computer  cannot  PRINT  since  the 
limits  of  the  screen  are  from  0  to  31 ,  and  any  attempts  to  use 
a  number  greater  than  31  would  place  the  blob  off  the  screen 
to  the  right,  either  in  your  television  speaker  or  your  living 
room  or  wherever.  Now  the  Spectrum,  being  a  rather  clever 
little  machine,  decides  that  this  Is  not  on,  so  it  stops  the 
program  and  tells  you  what  went  wrong,  so  that  you  can 
correct  it.  Let  us  do  this.  The  easiest  way  is  to  arrange  that  if 
the  value  of  X  goes  outside  the  permitted  range  then  the 
program  automatically  changes  it  to  a  suitable  value.  One 
way  in  which  this  can  be  done  is  to  add  a  line  like: 

4-5  IP  THEN  LET  x  =0 

But  since  we  already  have  a  line  saying  LET  X  —  0  in  line  10 
then  we  could  do  the  same  thing  by  sending  the  program 
back  to  line  1 0,  like  this: 

4-5  IP  X  >31  THEN  GO  TO  10 
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This  technique  is  used  rather  a  lot  in  programs  —  sending  a 
program  back  to  the  beginning  in  order  to  reset  some 
variables  to  their  starting  values.  In  this  example  both 
methods  achieve  the  same  results,  but  you  may  come  across 
certain  programs  where  only  one  is  suitable,  or  one  method  is 
better  than  the  other. 

The  next  step  is  to  improve  the  flashing  display.  One  way  to 
do  this  is  to  make  sure  the  blob  is  displayed  for  longer  than  it 
is  erased.  Try  this: 


10  LET  xs© 

20  PRINT  AT 
30  FOR  f=l  TO  10 
40  NEXT  f 

50  PRINT  AT  5,x;”  " 

60  LET  X=X+1 

7B  IF  x  >31  THEN  LET  X =0 

SO  GO  TO  20 


Seems  to  work  rather  well,  but  in  most  programs  there  are 
other  computations  to  be  carried  out  which  will  slow  down 
the  program,  and  the  time-wasting  loop  of  lines  30  &  40  will 
slow  things  down  unnecessarily,  so  this  is  not  a  very  good 
approach.  Let  us  try  to  reduce  the  flashing  by  reducing  the 
time  between  the  space  being  PRINTed  and  the  blob  being 
PRINTed.  Try  this  program: 


10  LET  x  =0 

20  LET  p  — x 

30  LET  X-X+I 

40  IF  X  >31  THEN  LET  x =0 

50  PRINT  RT  5,p;  11  “;AT  5jXrln 

60  GO  TO  20 


See  how  much  smoother  this  is. 

Here,  X  is  the  variable  that  remembers  the  current  position  of 
the  blob.  P  remembers  the  previous  position  so  that  it  may  be 
erased  by  drawing  a  space  over  it.  Line  10  makes  X  start  off 
with  a  value  of  0.  Line  20  determines  the  value  of  P  by 
making  it  equal  to  X  before  X  is  increased  in  value  in  line  30. 
This  can  be  any  amount  of  increase  —  try  changing  the 
number  after  the  4-  sign  to  see  the  effect.  It  appears  to  move 
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faster,  and  that  can  be  advantageous  or  disadvantageous. 
Stay  with  1  after  the  +  sign  for  now. 

The  action  of  line  40  is  to  ensure  that  when  the  blob  has 
reached  the  right-hand  side  of  the  screen  it  is  sent  back  to  the 
left-hand  side  of  the  screen  by  resetting  X  to  0.  This  ensures 
a  constant  supply  of  blobs  for  usl  Line  50  does  all  the 
PRINTing  —  note  how  two  AT  functions  can  be  placed  on 
the  same  line  joined  by  a  semi-colon.  We  can  also  do  the 
same  with  TAB  incidentally.  Try  writing  these  as  two 
separate  lines  like  this  to  see  if  it  makes  any  difference  to  the 
program: 

50  PRINT  RT  5..  p;  "  " 

55  PRINT  RT  5^xj  "i14 

We  can  shorten  the  program  by  one  line  by  changing  line  30 
to: 

30  LET  X=X+1  RND  X  <  3 1 

The  way  in  which  this  line  works  is  rather  complex,  and  is 
more  fully  explained  in  the  sections  on  conditional 
statements.  Simplified,  it  means  "if  X  is  less  than  31  then  add 
1  to  the  value  of  X,  but  if  X  is  not  less  than  31  then  make  X 
zero".  Now  delete  line  40  (the  one  we've  made  redundant) 
and  renumber  nicely  in  steps  of  1 0  and  we  end  up  with  this: 


10  LET  x»0 
20  LET  p-X 

30  LET  X^X+1  RND  X  <31 
40  PRINT  RT  S.p;11  11 ;  RT  E 
50  GO  TO  20 


You  may  have  noticed  that  the  space  is  PRINTed  one  column 
behind  the  blob  all  the  time,  and  therefore  it  may  be  possible 
to  simply  use  PRINT  AT  5,X;"(spaceO"  and  dispense  with 
the  variable  P  altogether.  This  does  make  the  display 
smoother,  but  it  causes  problems  when  it  gets  to  the  end  of 
the  line  and  you  need  an  extra  line  to  dear  this  position.  To 
see  what  we  mean,  try  this  program: 
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10  LET  x=0 
£0  LET  X  =X  +2  SW£> 
30  PRINT  RT  S/X; 
4-0  GO  TO  20 


-30 


See  what  we  mean?  Every  time  a  new  blob  shoots  across  the 
screen  the  old  one  stays  on  the  right  of  the  screen.  Let  us  add 
a  facility  to  erase  these  blobs: 


10  LET  x =0 

20  LET  X*x+-1  RHD  X  <33 
30  PRINT  fiT  5..  x;  ‘  ■" 

35  IF  X  =0  THEN  PRINT  RT  5,31;'' 

4-0  GO  TO  20 


Again  we  can  use  AND  to  shorten  the  program  a  little:- 


1©  LET  x=0 

20  LET  X  =X  + 1  AND  X <30 
30  PRINT  AT  5 ,  x  ;  "  •”  ; ftT  S,32;" 
*  RNO  X  — 0 
4-0  GO  TO  20 


Line  35  in  the  first  program  and  the  second  part  of  line  30  in 
the  second  ensure  that  a  space  is  only  PRINTed  if  the  blob 
has  reached  the  end  of  its  travel.  Here  is  another  way  of  doing 
this,  using  the  control  variable  of  a  FDR/NEXT  loop  instead 
of  the  conventional  variable  X.  This  method  uses  slightly  less 
memory  and  is  slightly  faster  to  run. 


10  FOR  X=0  TO  30 

20  PRINT  RT  5 x  ;  “  RT  5..  31.;  “ 

-  AND  X  =0 
30  NEXT  X 
4-0  GO  TO  10 


Another  way  to  use  this  method  is  to  have  PRINT  AT 
5,31  ;"(space)l~~r  outside  the  FOR/NEXT  loop.  This  has  the 
advantage  that  the  computer  does  not  have  to  examine  the 
conditional  expression  so  often,  so  the  program  runs 
considerably  faster: 
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1©  FOR  X=0  TO  30 
30  PRXNT  RT  5,x;“  *" 

30  NEXT  X 

40  PRXNT  RT  ” 

50  GO  TO  10 

So  we've  ended  up  with  a  routine  that  is  quite  fast  running 
and  economical  in  memory  usage. We've  also  seen  some  of 
the  problems  of  developing  this  kind  of  program.  The 
examples  we've  seen  so  far  deal  with  constant  movement 
across  the  screen.  We  will  also  require  to  move  characters 
about  the  screen,  possibly  with  control  of  this  movement 
from  the  keyboard,  so  that  the  operator  may  control  the 
movement.  To  do  this,  we  first  need  to  return  to  INKEYS,  a 
very  useful  aid  for  moving  graphics.  If  you've  read  the  earlier 
section,  you'll  recall  that  INKEY$  is  the  character  which 
corresponds  to  the  key  being  pressed  on  the  keyboard.  If  you 
press  K,  then  INKEYS  is  "K'  or  INKEYS  - "k".  If  you  aren't 
pressing  anything  on  the  keyboard,  INKEYS  becomes  the 
empty  string,  or  (INKEY$  cannot  be  "{space)"  because 
pressing  SPACE  acts  as  BREAK  when  a  program  is  running 
and  stops  a  BASIC  program. )  We  will  look  now  at  some  other 
ways  in  which  we  can  use  IN  KEYS,  because  it  is  a  powerful 
and  extremely  useful  function  for  moving  graphics.  Most 
arcade  games  require  you  to  press  buttons,  flick  switches  or 
manipulate  joysticks.  Your  computer  does  not  have  these 
(unless  you  buy  or  build  an  add-on  board),  so  all  control  has 
to  be  done  through  the  keyboard. 

To  control  movement  on  the  screen,  certain  keys  have 
advantages  over  others  because  of  their  layout.  For  instance, 
take  the  Z  and  the  M  keys  on  the  bottom  row  of  the 
keyboard.  They  can  be  used  to  move  left  (Z)  or  right  (M),  to 
control  left/ right  movement  on  screen,  e.g.  in  an  invaders 
type  of  game.  Their  advantage  is  that  they  are  logically 
placed,  making  them  convenient  to  use.  One  disadvantage  is 
that  the  M  is  near  to  the  BREAK  key  so  that  you  may 
accidentally  stop  the  program  in  a  frenzied  hurry  to  avoid 
being  bombed  by  the  Green  Menace. 

If  you  want  to  control  left /right/ up /down  movement  {e.g.  to 
move  the  cursor  in  the  word-processor  program  near  the 
back  of  this  book)  then  the  5,6,7, 8  keys  are  a  better  choice 
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since  they  have  arrows  pointing  in  the  four  directions  printed 
on  the  keys.  They  are  next  to  each  other  for  convenience  of 
use  and  they  are  not  dangerously  near  BREAK. 

The  most  common  way  of  using  INKEY$  in  a  moving 
graphics  program  (be  it  games  or  serious  applications)  is  to 
put  it  in  a  conditional  statement  to  control  the  value  of  a 
variable.  For  example: 

IF  !NKEY$  -  "8"  THEN  LET  X  =  X  +  1 

Here,  one  is  added  to  the  value  of  X  if  the  8  key  is  being 
pressed,  but  X  stays  the  same  if  no  key  is  beigg  pressed,  or  a 
key  other  than  8  is  being  pressed*  Having  done  this,  the 
variable  can  be  used  to  control,  for  example,  where  to  PRINT 
on  the  screen,  for  example: 

PRINT  AT  5,X;"Q" 

If  we  adopt  the  convention  of  X  being  the  horizontal  position 
across  the  screen  and  Y  being  the  vertical  position  on  the 
screen,  then  the  bigger  the  value  of  X,  the  further  to  the  right 
across  the  screen  the  character  is  PRINTed  and  the  bigger  the 
value  of  Y  the  further  down  the  screen  the  character  is 
PRINTed. 

So  knowing  this  we  can  write  a  short  program  to  control  the 
movement  of  a  character  (e.g.  an  asterisk)  on  the  screen 
using  the  keys  5,6,7  &  8  (the  keys  with  arrows  printing  on 
them)  like  this: 


100 

IF 

INKEY*  =  "S'* 

THEN 

LET 

>\  ~  X  - 

110 

IF 

INKEY* ="8” 

THEN 

LET 

120 

IF 

INKEY* =" 7" 

THEN 

LET 

130 

IF 

INKEY*«"S' 

THEN 

LET 

14-0 

FttINT  »T  ,  X  ; 

tt  ^  ii 

Before  we  can  RUN  this  program  we  need  to  define  X  and  Y 
or  nothing  will  happen.  Add  these  lines  to  the  program: 
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10  LET  X=0 
20  LET  y=0 

We  can  now  RUN  the  program.  What  we  get  is  an  asterisk 
PRINTed  at  the  top  left  corner  of  the  screen,  and  the  program 
stops  after  line  140.  To  prevent  this  happening  we  can  add  a 
line  like: 

200  GO  TO  100 

This  ensures  that  the  computer  carries  on  doing  the  task  over 
and  over  again.  RUN  the  program  and  try  pressing  the  5,6,7, 8 
keys  one  at  a  time.  You  will  see  that  as  the  asterisk  moves  it 
leaves  behind  a  trail  of  asterisks.  Keep  going  to  the  edge  of 
the  screen  and  keep  pressing  the  keys.  Strange  things  begin 
to  happen.  If  you  go  off  the  bottom  of  the  screen  or  off  the 
right-hand  side  of  the  screen  the  program  stops  with  an  error 
message.  This  is  because  the  value  of  X  has  gone  greater 
than  31  or  the  value  of  Y  has  gone  greater  than  21,  and  as  a 
consequence  the  computer  is  being  asked  to  PRINT  outside 
the  screen  boundaries,  and  this  of  course  it  cannot  do. 

However,  if  you  try  to  move  past  the  top  of  the  screen  or  the 
left-hand  edge  of  the  screen  then  even  stranger  things  begin 
to  happen  —  the  asterisk  starts  to  travel  in  the  opposite 
direction!  It's  not  that  we've  broken  the  computer  or  anything 
like  that,  there  is  a  simple  explanation.  When  the  value  of  X  or 
Y  is  negative  (as  happens  when  you  try  to  go  off  the  top  or 
the  left-hand  side  of  the  screen)  then  PRINT  ignores  the  — - 
sign  (it  takes  the  ABS  value  if  you  like),  and  so  it  apparently 
causes  some  keys  to  change  functions!  Not  very  useful  to  say 
the  least,  since  you  then  have  to  take  the  asterisk  back  to  the 
screen  boundaries  to  restore  normal  operation.  What  we 
need  is  a  method  whereby  if  the  asterisk  gets  to  the  edge  of 
the  screen  it  stops  and  will  not  attempt  to  go  outside  the 
screen  line. 

The  easiest  method  is  to  prevent  X  and  Y  taking  values  which 
causes  these  problems.  The  values  which  are  permissible  are 
X:  0  to  31  and  Y:  0  to  21 .  Here's  how  to  do  this.  Change 
lines  100,  110,  120  and  130  like  this: 
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100  IF  INKEY S  =  "5  “  AND  X >0  THEN 

LET  X  =  X  —  1 

110  IF  INKEY $=“8“  FIND  X  <31  THEN 

LET  X  *X  +1 

120  IF  INKEY*=”7~  AND  y  >0  THEN 

LET  V  =«  -1 

130  IF  INKEY*«="6“  AND  y  <21  THEN 

LET  yaW+1 

This  makes  the  asterisk  stay  on  the  screen  properly,  but  v 
still  have  the  problem  that  a  trail  of  asterisks  is  set  up  as  tl 
asterisk  moves.  This  is  because  we  have  no  facility  to  era: 
the  old  position  of  the  asterisk  when  it  moves-  The  best  w< 
to  do  this  is  to  use  a  second  set  of  variables  to  remember  tl 
old  position  of  the  character,  and  if  it's  different  to  the  ne 
position  PRINT  a  space  in  the  old  position. 


To  do  this  add  these  lines: 


3®  LET  s=x 
60  LET  b=y 

135  IF  a  <  >X  DR  boy  THEN  PRINT 
AT  b  ,  a  ;  **  '* 

200  CO  TO  50 


The  program  you  have  in  the  computer  should  now  be: 


10  LET  X<*0 
28  LET  y»0 
50  LET  assx 
60  LET  b«y 

100  IF  INKEY$  =  "S"  FI  NO  X  >0  THEN 
LET  X  ax  — 1 

110  IF  INKEY$  =  “8"  FIND  X  <31  THEN 
L.E:T  X  — X  4*  1 

12©  IF  XNKEY $  =  “7“  AND  y>0  THEN 
LET  y ay -1 

13©  IF  INKEY$=“6"  AND  y <21  THEN 
LET  y  =y  +1 

135  IF  a  <  >X  OR  boy  THEN  PRINT 

AT  b ..  a ;  “  " 

14.0  PRINT  AT  y,x;***" 

200  GO  TO  50 


We  now  have  the  basic  design  of  a  moving  graphics  program 
When  we  get  around  to  designing  a  game  around  this  routin' 
we  may  have  to  alter  some  details  or  change  the  order  o 
statements  but  the  principles  involved  will  be  similar.  As  w< 
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did  earlier  we  may  also  be  able  to  shorten  the  routine 
somewhat,  for  example: 


10  LET 
£©  1_ET 
30  LET 
♦0  LET 
100  LET 

>  + (INKEY*="3" 
110  LET  y  =y - 

>  +  ( INKEY  0  =  '■&*' 
135  IF  a  <  >X 

RT  b,8j  “ 

14-0  PRINT  RT 
£00  GO  TO  30 


X  =3 

y  =0 
a  =x 
b=y 

X  =X  -  ( INKEY  $  =  ”  5 •• 
RND  X  <31i 
f  INKEY'S  =  "  7" 
RND  y  <21> 

OR  boy  THEN 

y  ,x; 


RN£> 

RNO 


X  >0 

y  >0 


PRINT 


This  version  occupies  nearly  fifty  bytes  of  memory  less  than 
the  previous  version.  You  could  also  combine  line  140  with 
line  135  into  one  conditional  statement,  since  neither  PRINT 
statement  is  required  unless  the  asterisk  has  moved.  This 
means  we  can  delete  line  140.  Here  is  how  to  change  line 
135: 


135  IF  a  OX  OR  boy  THEN  PRINT 
RT  fe,a;  "  '* ;  RT  y  ,  x ;  "a" 


Remember  to  delete  line  1 40.  The  disadvantage  is  that  while 
saving  5  more  bytes  of  memory,  when  the  program  is  first 
RUN  the  asterisk  does  not  actually  appear  on  screen  until  it  is 
moved.  So  it  may  be  better  not  to  do  this  unless  you  are 
desperate  for  memory. 
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SCREEN$  and  scrolling 

Let  us  now  look  at  another  facility  which  is  useful  in  moving 
graphics  programs,  scrolling.  Scrolling,  which  can  be  done 
automatically  by  including  the  line  POKE  23692,-1,  moves 
everything  in  the  display  up  one  line  and  if  there  was  anything 
printed  on  the  top  line  of  the  display  then  it  is  lost. 

The  next  program  —  ROAD  RUNNER  —  shows  scrolling  in 
action  again  to  produce  moving  graphics.  In  this  program  you 
are  attempting  to  drive  a  long  line  of  little  'cars'  down  a 
twisting,  turning  track  of  red  asterisks.  Your  controls  are  "Z" 
and  "M"  which  move  you  left  and  right  respectively. 

Lines  80  and  90  moves  the  track  randomly,  making  sure 
that  it  does  not  stray  off  the  edge  of  the  screen.  Line  110 
prints  the  'car',  which  is  scrolled  up  (as  is  the  track),  by  lines 
130  and  140. 

Line  160  introduces  a  new  Spectrum  function  SCREEN$ 
which  returns  information  as  to  the  state  of  the  screen  at  the 
location  which  is  specified  following  the  word  SCREEN$.  In 
line  160,  the  computer  uses  SCREEN$  to  look  at  the 
character  cell  just  in  front  of  where  the  last  'car'  was  printed. 
If  it  finds  an  asterisk  there,  it  knows  the  car  is  about  to  crash, 
so  sends  action  to  line  200,  where  the  YOU  HAVE 
CRASHED  routine  begins. 


1©  REM  RORD  RUNNER 
30  LET  C  =  © 

30  LET  T 

4-9  GO  SUB  250 

50  LET  R-IO 

60  LET  X=13 

T©  LET  Ysl2 

30  LET  K-1NT  fRN  £>*3} 

9©  LET  A  -R  -  { K  AND  A>i:i*(K=© 
AND  Ac 34.) 

10©  REM  NEXT  LINE  CONTAINS  A 
GRAPHIC  C  AS  DOES  30© 

11©  PRINT  AT  Y,X-l;  INK  1 ; 

130  PRINT  AT  20,R,  INK  2; 

J3  A-H5, 

13©  PRINT 

140  POKE  33692,-1:  PRINT 
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15©  PRINT  INK  5;  PAPER  2;  AT  ©..  1 
•3;  ••  SCORE  IS  ”;T;  *' 

15©  IF  SCREEN*  fY  •*-  A X  -1  3  =  "  *"  TH 
EW  GO  TO  200 

17©  LET  X  =X -  I INKEY  $  =  “ Z " )  f { INKEY 
*  =  “M*' ) 

15©  LET  T  =T  +1 
190  GO  TO  6© 

30©  PRINT  AT  Y,X-1;  INK  1;  '*#" 
31©  PRINT  AT  6,6;  FLASH  1;  BRIG 
ht  i;”  You  have  crashed!! 

220  PRINT  AT  8..  10;  FLASH  1;  BRI 
GHT  l;  INK  RND*7;  PAPER  9; "  YOU 
scored  **;T;  **  ’’ 

230  BEEP  ,01,RND*S0~RNDf£0 
24©  GO  TO  21© 

25©  FOR  U=Q  TO  7 
260  READ  Z 

270  POKE  USR  "C’  +U,,  Z 


28©  NEXT  <J 
29©  RETURN 

30©  DATA  BIN  00 1 10 11© . 5 IN  ©Oil© 
110, BIN  ©0111111®..  BIN  00010100,6 
IN  801111110,6  IN  00  11©  1 10  ..  BIN  00 
011100, © 


Here  are  a  few  other  programs  to  illustrate  'moving  graphics' 
ideas  we've  discussed. 


Red  arrow 

The  object  of  this  game  is  to  fire,  by  pressing  any  key  except 
BREAK,  when  the  RED  ARROW  flies  over  your  base,  and  be 
rewarded  with  a  hit  if  you  succeed.  You  have  only  a  limited 
number  of  shots,  so  try  to  score  as  many  hits  as  possible 
before  the  game  stops. 


Here  is  the  listing: 


REM  Line  10  contains 
7  REM  graphics  &  6  and  c 
3  GO  SUB  200 
9  PRPER  7:  CLS 
10  PRINT  RT  15,U;  INK  1; 
;RT  4w0;  RftPER  7;  INK  2;", 
its:  OmMMHI'*  ,  RT  Id.,  0,  INK 
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20  LET 
30  LET  J*  =h 
4.0  LET  y=RND#6+7 
50  FDR  X  =0  TO  IS 

60  XF  h+®=250  THEN  GO  TO  1000 
70  REH  Graphic  D  in  60 
80  PRINT  AT  y,x;  INK  2;"  *" 

90  IF  XNKEY *  ■{  >  "  "  AND  X  =14-  THEN 
GO  TO  14.0 

1©0  IF  INKEY*  ;  .-»•* "  THEN  LET  »  =»  + 
110  NEXT  X 

120  PRIhTT  RT  y,20;'*  M 
130  GO  TO  4.0 


14-0  LET  h  =h  +1 
150  FDR  f=l  TO  30 

160  PRIhTT  RT  y,x;  INK  2;  PAPER 
4.;  BRIGHT  l;  FLASH  FOR 

2=1  TD  20;  BORDER  RND 4 7 ;  BEEP  .0 
1/39-342:  PRINT  RT  y,X,J‘ 

170  NEXT  f 

180  PRINT  AT  4-/11;  PAPER  7;  INK 
2  ’  h 

190  GD  TO  4-0 
200  FOR  J=0  TO  7 
210  RERD  q 

220  POKE  USR  "R^’+J/q 
230  NEXT  j 
24-0  FDR  j=0  TO  7 
250  READ  q 

260  POKE  USR  ''B"+J,q 
270  NEXT  j 
280  FOR  J  =0  TO  7 
290  RERD  q 

300  POKE  USR  ”C“+J,q 
310  NEXT  J 
320  FOR  J=0  TO  7 
330  RERD  q 

34-0  POKE  USR  ”D*'+J,q 
350  NEXT  j 
4.00  RETURN 

500  DRTR  BIN  0000O001 , BIN  00000 
011/BIN  00000110 / BIN  00001100/BI 
N  00011000/BIN  00110000/BIN  0110 
000.BIN  11000000 
510  DRTR  BIN  11111111 /BIN  11111 
111/0/0,0/0,0/0 

520  DRTR  BIN  11100000, BIN  11100 
000, BIN  00110000 ,BIN  00011000 ,BI 
N  00001100 /BIN  00000110 ,BIN  0000 
0011 , 1 

530  DRTR  BIN  00001000 /BIN  10000 
100/BJN  01000010/BIN  00111111/BI 
N  01000010, BIN  10000100 ,BIN  0000 
1000/0 

1000  FOR  9=1  TO  70 

1010  BEEP  ,01/ 9X2;  BEEP  ,01,4-0-9 
1020  NEXT  g 
1030  RUN 
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Line  1 0  sets  up  the  main  part  of  the  display,  the  parts  that  do 
not  move  during  the  program.  H  is  the  variable  that 
remembers  the  amount  of  hits  you  have  scored  and  M  the 
amount  of  misses  (shots  without  hitting  the  U.F.O.)  and  both 
are  initially  set  to  zero.  Line  40  sets  the  Y  coordinate  of  the 
ARROW  to  a  value  from  7  to  13  at  random.  PRINT  takes  the 
value  of  the  nearest  whole  number  if  one  of  the  coordinates  is 
not  an  integer,  so  RND  *6  +  7  can  be  from  7  to  13.  This 
gives  the  position  of  the  ARROW  up  the  screen.  The  main 
loop  for  controlling  the  flight  of  the  ARROW  across  the 
screen  begins  at  line  50.  0  is  the  starting  position,  19  the 
end  position.  Line  60  checks  if  you've  used  up  your  shots, 
then  sends  the  program  to  line  1000  if  you  have.  Line  80 
PRINTS  the  ARROW.  Note  how  it  erases  the  old  position  by 
PRINTing  a  space  one  position  behind  the  ARROW  (in  its 
previous  position).  Line  90  checks  if  a  key  is  being  pressed 
and  if  the  ARROW  is  directly  above  the  base,  then  it  sends 
the  action  to  the  HIT  routine  at  line  140.  This  adds  one  to  the 
number  of  hits  scored  and  provides  an  explosive-looking 
display  at  the  point  where  the  craft  was  hit,  then  sends  the 
program  to  line  40  again  to  supply  another  one.  However,  if 
a  key  was  pressed  and  the  ARROW  was  not  above  the  base, 
then  one  is  added  to  the  number  of  misses.  If  the  ARROW 
reaches  the  end  of  its  travel,  the  program  falls  out  of  the 
FOR/NEXT  loop  and  line  120  erases  the  final  position  of  the 
craft  then  line  1 30  sends  the  program  back  to  line  40  to  set 
up  a  new  one. 
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Garbage  gobbler 

The  object  of  this  game  is  to  clear  up  garbage  which  appears 
on  the  screen  as  magenta  shapes.  You  control  the  'gobbler' 
with  the  keys  5,6,7,  &  8,  movement  being  in  the  direction  of 
the  arrows  printed  on  the  keys.  You  eat  the  garbage  by 
running  over  it.  You  are  given  a  limited  time,  and  you  are  told 
how  many  items  of  garbage  you  collected.  The  loop  in  lines 
40  to  60  set  up  the  garbage  in  random  positions. 


GOBBLER 


IN  50 


10  REM  GARBAGE 
20  GO  SUB  1000 
30  REM  GRAPHICS  M 
4.0  FOR  G»1  TO  50 
50  PRINT  AT  RND»16+3 
INK  l; 

60  NEXT  G 
70  LET  X«0 
SB  LET  Y=B 
BE  FOR  Gal  TO  500 
90  LET  A=X 
100  LET  B»Y 

110  LET  Y  =Y—  f  INKEY®  =  “‘7” 
) + CINKEY$=“6”  AND  Y  (20) 
120  LET  X=X  —  t INKEY  $  ="5" 
}  +  (INKEY$  =  ,,S“  AND  Xt31J 
130  IF  ATTR 
CORE a SCORE  + 1 : 

RND*7;  PRPER 
is  SCORE;  AT 
■*;S  00— 3;” 

14.0  IF  ATTR 
.01,40 

150  REM  GRAPHIC 


RND*26+4.; 


AND  YM 
AND  X>1 


CY ,X)  =4-9  THEN  LET  5 
PRINT  AT  3. .2©.;  INK 
9;  FLASH  1;  "Score 
20,0.;’*Ti»e  left  « 

CY  ,  X  J  =4-9  THEN  BEEP 


150  REM  GRAPHIC  D  IN  1S0 
160  PRINT  RT  B,A;"  "  ;  AT  Y,Xj  IN 

K  a;  “C” 

170  NEXT  G 

180  PRINT  RT  0,20;  INK  RND*7;  P 
flPER  9;  FLASH  1; “Score  is  SCOR 
E;RT  20,0;  "Time  left  * 

190  BEEP  . 2,RND*5B:  GO  TO  190 
90©  STOP 

1000  FOR  R=0  TO  7 
1010  READ  0 
1020  POKE  USR  *’M‘*  +A ,  0 
1030  NEXT  R 

104-0  DATA  SIN  10100101,  BIN  01011 

010, SIN  10100101, SIN  0101101O, BI 

N  01011010, BIN  10100101, BIN  0101 

1010, BIN  10100101 

1050  FOR  A»0  TO  7 

106©  READ  O 

1070  POKE  USR  “D‘+A,Q 

1080  NEXT  A 
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1090  DRT R  BIN  000111il,BI >4  011XX 

ill , BIN  11111100,BIN  11111000,51 

N  11100000.BIN  11111000, BIN  0111 

X  200 , B  IN  00111X11 

2100  BORDER  2;  PRPER  & :  C US 

1130  LET  SCORE  =0 

1500  RETURN 


Now  we  can  explain  how  to  find  out  what  is  on  the  screen,  so 
the  computer  knows  the  'gobbler'  is  about  to  run  over 
something.  This  facility  will  be  used  time  and  time  again  in 
programs.  The  vital  function  is  ATTR  which,  as  you  can  see 
from  lines  130  and  140,  is  similar  in  form  to  PRINT  AT, 
Lines  130  and  140  check  the  attributes  of  the  character 
square  Y,  X  before  the  'gobbler'  is  printed  there.  If  it  finds  a 
value  of  49,  it  knows  the  square  contains  garbage,  and  so  the 
time  and  score  is  updated.  The  number  actually  produced  by 
ATTR  depends  on  whether  the  character  is  FLASHING  or 
not,  whether  it  is  BRIGHT  or  not,  and  the  colours  of  the  INK 
and  PAPER  at  the  position. 


Because  ATTR  is  a  little  difficult  to  use,  it  is  best  to  set  up  a 
small  routine  to  print  out  the  results  of  ATTR  before  you 
finally  decide  what  value  you  want  to  test  for.  The  'absence' 
of  a  value  produced  when  the  'gobbler'  moves  over  a  blank 
background  is  not  recommended;  instead  of  this,  test  for  the 
present  of  a  particular  value.  We  did  this  when  writing  this 
program,  by  having  line  140  blank  at  first,  and  line  130 
reading  PRINT  AT  0,0;  ATTR(Y,X),  then  watching  what 
happened  when  the  'gobbler'  was  about  the  land  on  a 
garbage  square.  We  recommend  you  follow  this  method. 
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String  manipulation 

Finally,  there  is  one  other  method  of  producing  moving 
graphics  in  BASIC  which  is  not  used  very  often  —  through 
the  use  of  strings. Strings  may  be  PRINTed  very  rapidly,  and 
the  computer's  comprehensive  string  slicing  facilities 
(discussed  earlier  in  the  book)  mean  that  we  have  at  our 
disposal  a  powerful  tool.  The  basic  method  is  to  assign  a 
character  or  string  array  large  enough  to  cover  the  area  of 
screen  used  for  movement  and  PRINT  the  array  at  a  certain 
location.  To  simulate  movement  we  can  either  PRINT 
different  parts  of  the  array  or  change  the  contents  of  the 
array. 


(1 )  PRINT  different  parts  of  the  string  in  order.  T ry  this  short 
program: 

10  DIM  A  $  (32.5 
20  LET  R*  <  1J  " 

30  FOR  R  *32  TO  1  STEP  -JL 
4-0  PRINT  RT  20.-0:  R$  (R  TO 
TO  R-l) 

50  NEXT  R 
60  GO  TO  30 


Can  you  see  why  it  is  necessary  to  have  line  30  count 
backwards  from  32  to  1?  What  would  happen  rf  line  30 
counted  from  1  to  32  (30  FOR  A  =  1  TO  32)?  Draw  on  a 
piece  of  paper  (or  use  the  printer  rf  you  have  one)  every  step 
the  program  will  take  to  make  up  the  display.  Note  the  high 
speed  possible,  and  how  the  previous  position  is  erased  and 
the  new  position  PRINTed  in  one  go.  An  interesting  effect 
may  be  obtained  by  changing  line  20  to  20  INPUT  AS  and 
entering  a  message  of  up  to  32  cheracters.  This  is  similar  to  a 
type  of  display  found  in  shop  windows  for  advertising 
purposes,  although  this  is  not  the  kind  of  effect  one  would 
normally  encounter. 

This  method  of  producing  moving  graphics  from  strings  is 
very  useful  because  it  does  not  alter  the  contents  of 
strings/arrays,  but  rather  only  displays  them  in  a  different 
order,  so  the  information  may  be  retrieved  easily  at  any  time. 
It  can  be  used  for  a  shop  window  display  like  the  one  below. 
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20  INPUT  "ENTER  YOUR  HESSRGE"; 

30  IF  R*=:',,,  THEN  GO  TO  20 
40  LET  5=50 

50  FOR  B  =  1  TO  LEN  fl$+35 
70  PRINT  RT  S,©;  (*• 

"+Fi$F" 

**)  (G  T 

O  B+31) 

30  LET  5=5- (5  RND  INKEY*=”F"  R 
ND  5  >  1 )  +  C  5  RND  INKEY*=“D“J 

90  IF  INKEY* ="R“  THEN  GO  SUB  X 

40 

100  FOR  R  =  1  TO  S 

11®  NEXT  fl 

130  NEXT  B 

130  GO  TO  50 

14*0  FOR  R=1  TO  200 

150  NEXT  R 

150  RETURN 


What  it  does  is  ask  you  to  enter  a  display  message,  then  after 
it  has  been  entered,  the  message  begins  to  appear  from  the 
right  of  the  screen  and  moves  to  the  left  and  eventually, 
disappears  to  the  left,  whereupon  the  sequence  begins  all 
over  again.  The  rotating  sequence  begins  at  a  slow  speed  but 
can  be  speeded  up  by  pressing  the  F  key  or  slowed  down  by 
pressing  the  D  key.  The  fastest  speed  is  very  fast,  the  slowest 
is  very  slow.  You  can  "freeze0  the  display  for  a  short  time  by 
pressing  the  A  key.  You  can  stop  the  program  at  any  time  by 
pressing  BREAK. 

Provided  that  the  computer  has  enough  memory  available 
then  in  theory  the  size  of  the  message  is  limited  by  the  size  of 
the  largest  array  the  computer  can  handle  in  theory.  In 
practice,  however,  if  you  fill  the  screen  with  the  message 
when  entering  it  (i.e.  it  is  more  than  24  rows  of  32  characters 
long)  and  subsequent  characters  entered  have  to  be  entered 
blind  because  they  will  seem  to  be  below  the  screen  —  try  it 
to  see  what  I  mean.  Warning  —  you'll  end  up  with  a  tired 
finger! 

The  message  begins  to  appear  from  the  right  of  the  screen 
about  a  quarter  of  the  way  down,  and  runs  along  the  screen 
towards  the  left.  Once  it  has  disappeared  past  the  left-hand 
side  of  the  screen  it  reappears  as  before  and  repeats  the  cycle 
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over  and  over  again.  The  speed  may  be  varied  as  described. 
The  display  is  frozen  as  described. 

Line  70  is  fairly  complex:  to  prevent  changing  the  contents 
of  string  A$,  the  entire  contents  in  the  first  pair  of  brackets 
are  treated  as  one  long  string  consisting  of  thirty  two  spaces 
followed  by  the  message  string  A$,  followed  in  turn  by 
another  thirty  two  spaces.  The  slicer  in  the  second  pair  of 
brackets  selects  which  parts  of  this  long  string  are  PRINTed. 
Note  that  A$  still  retains  its  own  identity.  Whichever  parts  are 
selected,  the  string  PRINTed  is  always  32  characters  long. 

As  it  stands,  the  program  has  no  facility  for  you  to  change  the 
message  once  it  is  running  —  you  have  to  use  BREAK  then 
RUN  the  program  once  again.  One  way  of  providing  this 
facility  is  to  add  this  line,  so  that  on  pressing  "1"  (EDIT)  the 
program  restarts  automatically: 

85  IP  INKEYS-" THEM  RUN 

(2)  Move  the  elements  of  the  array  around.  Try  this  program: 

20  DXN  *32* 

£0  FOR  1  TO  32 
30  LET  a$ fa) =“+ “ 

4-0  PRINT  RT  20/0;  3  $ 

50  LET  a$  fa*  ” 

60  NEXT  a 
70  GO  T 0  20 

This  method  gives  us  great  flexibility.  We  can  handle  strings 
quickly  and  efficiently  with  the  computer's  string  handling 
facilities.  Strings  are  very  useful  for  storing  information 
because  this  information  may  be  accessed  quickly  and 
conveniently  compared  with  REM  statements  for  instance, 
and  the  speed  with  which  they  may  be  PRINTed  makes  them 
an  attractive  method  for  producing  displays.  The  mein 
disadvantage  is  that  it  is  wasteful  of  memory  since  the 
information  is  held  in  both  the  display  file  and  the  arrays 
involved,  possibly  in  the  program  area  as  well.  Here  is  a 
moving  display  program  which  relies  on  information  in  the 
strings  PRINTed. 
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The  program  is  called  BASIC  Invaders  because  it's  a  version 
of  the  arcade  game  written  in  BASIC.  It  is  very  simplified  of 
necessity  and  is  included  for  the  purpose  of  demonstrating 
the  use  of  strings  for  moving  display  purposes.  A  row  of 
invaders  descends  the  screen  towards  you.  You  can  move 
left  or  right  using  the  5  &  8  keys  respectively.  You  fire  up  at 
the  invaders  by  pressing  the  7  key.  If  you  are  directly  under  an 
invader  it  disappears  and  is  destroyed. 


There  are  seven  waves  of  invaders  and  you  have  to  destroy 
them  all  to  win. 


1  REM  Basic  Invaders 
a  REM  Graphic  r  in  40 

3  REM  Graphic  Bin  120 

4  BORDER  2:  P8PER  0:  GLS 

5  GO  SUB  230 
10  DIM 

20  DIM  bj (32) 

3©  FOR  d«l  TO  r 

4©  LET  =  "  A  A  A 

A  A 


* 


50  LET  X  —  XNT  t RND *32 3 
SB  LET  C=X 

70  PRINT  RT  5,12;  INK  X^5;  PflP 
ER  9;  FLRSH  1;  BRIGHT  1;  "  URUE : 

<«  -  Q  •  ti  it 

' S&  LET  C=0 

9®  FOR  B*D+9  TO  19  STEP  2 
100  FOR  R=0  TO  31 

110  LET  X=X  + l INKEY$=“8“  RND  X <3 
13  - fINKEY$=“5”  RND  X>01 
120  PRINT  RT  B,0;  INK  RND*2.A*; 
RT  20.0;*’  •*  RND  C<>X;RT  20.  X'.  IN 

K  4.; 

130  IF  R$aB$  THEN  GO  TO  200+ f&0 
AND  D»7) 

14.®  LET  C*X 

15®  IF  INKEY  $  =  "7'*  THEN  BEEP  .01 
,20:  IF  A*  <X+1>  THEN  LET  Aft 

X+Ds”®**  :  PRINT  RT  B,0;  INK  6; 

:  BEEP  .01,50:  LET  R*tX+13=”  ” : 

LET  SCaSC+1:  PRINT  RT  2,10;  INK 
2;  PAPER  0;  BRIGHT  1;  FLASH  1.;  **S 
co re  >  **;  60*27167 

160  NEXT  A 

165  LET  A$mR$(4-  TO  )  +A$  (  TO  33 
170  PRINT  RT  B,0.:B$ 

1B0  NEXT  B 
19®  GO  TO  24.® 

20®  FOR  B»1  TO  10 
210  NEXT  B 

22®  PRINT  RT  20,0;-  " 

230  NEXT  D 


109 


24.0  PRINT  FLASH  l;  INK  RND*7;  P 
APER  0; “THEY  HAUE  LANDED! " 

250  BEEP  . 1 , -AND *30.  POKE  236S2 
, -1:  GO  TO  24.0 

260  PRINT  INK  PNO  *7;  PAPER  9;  “ft 
LL  INUADERS  DESTROYED" 

265  POKE  23692,-1 

270  BEEP  ■ 01 , RND  *50 :  GO  TO  260 
280  REM  Make  invaders 
290  FOR  J«0  TO  7 
300  READ  O 

310  POKE  USR  “F"+«J,Q 
320  NEXT  J 

330  DRTfi  BIN  00 11 1 lie, BIN  00161 
010, BIN  00 11 1110, BIN  00011100, BI 
N  00001000, BIN  01110111, BIN  0100 
8001, BIN  01008001 
34.0  REM  Make  base 
350  FOR  J>0  TO  7 
360  READ  G 

370  POKE  USR  "B"+J.Q 
380  NEXT  J 

390  DATA  BIN  81111110, BIN  01111 
110, BIN  01111110, BIN  81111110, BI 
N  01100118, BIN  1110001 1 , BIN  liO© 
0011, BIN  10000801, BIN  10000801 
4.00  LET  3C>0 
4-10  RETURN 


The  program  is  very  wasteful  of  memory.  No  attempt  has 
been  made  to  conserve  memory,  and  you  may  be  able  to 
speed  it  up  with  some  minor  modifications.  The  two  strings 
of  interest  are  A$  and  B$.  B$  is  merely  set  up  to  32  spaces 
and  is  used  to  prevent  typing  in  "(32  spaces)"  at  various 
points  in  the  program.  A$  is  the  string  that  represents  the 
invaders.  It  is  initially  set  to  32  elements,  the  number  of 
characters  in  one  line  of  display.  Line  40  sets  the  initial  state 
of  the  characters  and  can  be  any  combination  of  spaces  and 
graphic  —  and  should  consist  of  32  characters,  X  is  the 
variable  that  controls  your  position  and  its  value  is  altered  in 
line  H0.  Line  120  performs  the  main  PRINTing,  updating 
the  invaders  display  and  your  position. 

Line  130  compares  the  invaders  with  a  string  of  32  spaces 
(B$)  and  if  it  finds  A$  contains  no  invaders  (i.e.  it  is  all  spaces) 
it  either  causes  a  jump  to  the  next  wave  of  invaders  or  if 
you're  already  on  the  last  wave  it  causes  a  jump  to  the  victory 
message  at  line  260-  Line  150  is  of  particular  interest,  since 
it  scans  the  string  for  the  character  above  you  in  the  invader 


160 


display,  and  if  it  finds  an  invader  there,  it  converts  it  to  a 
space.  This  is  only  done  if  the  7  key  is  pressed. 

The  rest  of  the  program  is  mainly  concerned  with  timing  of 
loops  and  sorting  out  the  different  waves  of  invaders. 


If  you're  storing  the  entire  screen  in  a  string  array  (or  a  part  of 
the  screen  involving  lines  above  or  below  each  other),  then 
you  can  use  two  different  methods  using  different  types  of 
array.  Consider  the  case  of  the  full  22  by  32  screen.  You  will 
require  a  22  by  32  element  string  array  and  this  may  be 
accomplished  by  either: 

(1)  using  a  two-dimensional  array,  set  up  with  the  statement 
DIM  A$(22,32).You  can  then  use  the  PRINT  AT  coordinates 
to  access  the  elements,  remembering  the  array  elements  start 
with  1,  PRINT  coordinates  with  0.  For  example,  to  PRINT 
AT  Y,X;CHR$  T  you  would  say  LET  A$(Y  +  1,X  +  1)  = 
CHR$  T.  The  problem  with  this  method  is  that  a  lengthy 
PRINT  statement  is  required  to  place  the  entire  array  on  the 

screen,  i.e.  PRINT  AT  0,0;A$(1  >,A$(2),A$<3) . 

A$(21  ),A$(22>.  However,  since  the  main  reason  for  using  an 
array  for  printing  is  the  ease  of  access  of  information,  this  is 
only  necessary  at  the  very  beginning  of  a  program  since  from 
then  on  we  need  only  PRINT  the  parts  of  the  array  we're 
actually  dealing  with.  Take  the  example  of  a  game  of 
draughts.  We  would  need  the  entire  board  on  screen  at  the 
start  of  the  game,  and  we  need  to  be  able  to  examine  the 
board  in  its  entirety;  however,  when  it  comes  to  PRINTing 
moves  we  need  only  PRINT  the  parts  of  the  array  which  are 
changed  by  a  move  —  the  part  of  the  array  from  which  the 
piece  was  moved,  the  part  to  which  it  is  moved  to  and 
possibly  a  part  of  the  array  where  an  opposing  piece  was 
captured. 

(2)  Use  a  single  dimension  array  with  704  elements  for  the  22 
by  32  display,  set  up  by  the  statement  DIM  A$(704L  This 
can  be  treated  like  a  memory  mapped  screen  and  may  be 
PRINTed  in  one  go  by  the  statement  PRINT  AT  0;0;A$  and 
is  very  fast  to  execute.  The  elements  are  easily  accessed.  To 
move  a  character  on  screen  we  have  to  move  it  about  in  the 
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array  in  a  manner  which  makes  it  move  satisfactorily  on 
screen.  To  understand  how  to  do  this  we  have  to  understand 
the  layout  of  the  array  on  the  screen.  Here  is  a  diagram: 


■ 

0 

1 

CL 

30 

31 

0 

A0(1) 

A0(2) 

IBBli 

H 

A0(31) 

A0(32) 

1 

RBI 

^  $  A0(62 ) 

a0(63) 

64 ) 

2 

A0(65) 

A0(66) 

A0(67) 

(  {  A0  ( 94 ) 

A0(95) 

A0(96) 

3 

A0(97) 

A0(98) 

A0(99) 

|  |  A0( 126 ) 

A0(127) 

A0(l28 

The  diagram  shows  a  fragment  from  the  top  of  the  screen.  Y 
and  X  are  the  coordinates  of  the  PRINT  AT  Y,X;  function. 
Can  you  see  how  the  Y,X;  coordinates  can  be  related  to  the 
subscripts  of  A$?  There  are  32  elements  of  A$  in  each  line  of 
the  display.  The  X  coordinates  start  off  at  0  whereas  the 
array  subscripts  start  at  1 .  So  Y,X  corresponds  to  A$<Y* 
32  +  X  +  1).  When  moving  a  character  it  can  go  to  one  of 
eight  locations  all  around  it,  as  shown  in  the  diagram  below: 


Xl/ 
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Now  suppose  the  invader  is  at  A$(A).  Here  is  a  chart  showing 
how  much  there  difference  is  beween  subscripts  of  the 
elements  representing  the  possible  positions  on  all  sides  (how 
much  to  add  to  the  old  subscript  to  make  it  the  new  one). 


Direction 
of  movement 

How  much  to 
add  to  A 

i 

-32 

2 

-31 

3 

1 

4 

33 

5 

32 

6 

31 

7 

-1 

8 

-33 

Shifted  l!MKEY$ 

At  this  stage  we  have  to  be  careful  not  to  go  beyond  the  limits 
of  the  array,  as  we  would  when  using  PRINT,  to  avoid 
crashing  the  program  with  a  subscript  error.  We  can  use  the 
cursor  keys  to  control  vertical  movement  and  horizontal 
movement,  and  use  the  SHIFTed  cursor  keys  for  diagonal 
movement.  Here  is  a  short  program  which  moves  a  blot 
around  the  screen  under  cursor  control  to  illustrate  how  this 
may  be  done. 

Pressing  SHIFT-5,  SHIFT-6,  SHIFT-7,  SHIFT-8  moves  you 
45°  clockwise  to  the  direction  of  the  arrows  on  the  keys.  The 
5, 6, 7, 8  keys  by  themselves  cause  movement  in  the  direction 
of  the  arrows.  This  program  does  not  have  the  facility  to 
prevent  subscript  errors  occuring  due  to  moving  outside 
the  boundaries  of  the  array. 
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10  DIM  3$  (704- A 

£0  LET  S=INT  fRNPdf?04.>  +1 

30  LET  3*0)=**  *' 

4.0  LET  a  =3  -  (32  RND  INKEYj*  =*' 7”  .* 
-(31  BND  INKEV*=CHft*  li.s+H  HMD 
XNKEY*-"8,,I  +  <33  AND  INK£Y*=CHR* 
Si  +  r32  AND  INK£Y*  =  ''6  "  )  +  f  3±  AND  X 
NK EY  $=CHR$  10J-(1  RND  INKtV*  =  ,*S*' 
I  - (33  AND  INKcY4=CHh$  3i 
3©  LET  a*  (a )=■•»“ 

80  PRINT  AT  0,0; as 
70  GO  TO  30 


The  reason  why  SHIFT-5,  SHIFT-6,  SHIFT-7,  SHIFT-8  have 
been  represented  by  CHR$  8,  CHR$  10,  CHR$  1 1  and  CHR$  9 
is  that  they  cannot  be  entered  directly  from  the  keyboard 
(they  act  as  cursor  control  if  you  try),  so  the  easiest  way  to 
get  them  in  is  by  means  of  CHRS. 


It  should  be  emphasised  that  the  use  of  strings  to  create 
moving  graphics  is  limited  to  those  applications  where  speed 
is  not  of  great  importance,  rather  than  applications  where  the 
access  of  information  is  important  but  speed  of  graphics  is 
important  but  not  of  highest  priority.  An  example  is  &  board 
game  such  as  draughts  where  pieces  move  occasionally  but  it 
is  necessary  to  have  rapid  access  to  the  information. 


Introduction  to 
arithmetic  on  the 
computer 

Have  a  quick  glance  at  this  section  before  you  read  it  in  detail. 
You  may  well  find  it  has  no  new  information  for  you.  If  this  is 
the  case,  fee!  free  to  turn  to  the  next  section. 

The  symbols  for  the  various  operations  in  BASIC  are  probably 
well  known  to  you  by  now.  They  are  multiply  (*),  divide  {/), 
subract  ( —  ),  add  (  +  )  and  raise  to  the  power  {  t  —  SHIFT  H). 
The  computer  follows  a  strict  priority  for  operations. 
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The  term  priority  refers  to  the  order  in  which  expressions  are 
evaluated.  The  computer  may  not  evaluate  everything  in  the 
order  in  which  they  are  printed  on  the  screen.  For  example 
you  may  have  noticed  that  putting  an  expression  in  brackets 
could  produce  a  different  result  compared  with  the  same 
expression  evaluated  with  the  brackets  omitted  (indeed 
leaving  out  brackets  may  cause  the  computer  to  refuse  to  do 
anything  because  of  a  syntax  error).  We  formalise  this  by 
giving  each  operation  a  priority,  a  number  between  18-16. 


The  operations  with  highest  priority  are  evaluated  first,  and 
operations  with  equal  priority  are  evaulated  in  order  from  left 
to  right.  In  effect,  the  computer  looks  at  the  expression,  and 
finds  the  part  with  the  highest  priority  and  says  to  itself: 
''Wait  a  minute  fellers,  there's  something  with  a  higher 


priority  than  you  over  there 
minute  when  it's  your  turn." 

Operation 

0 

SUBSCRIPTING/SLICING 
ALL  FUNCTIONS 
t 

—  (negation) 

/ 

+ 

—  (substraction) 

=  ,>,<  ,<  =,>  =,<' 

NOT 

AND 

OR 


I’ll  come  back  to  you  in  a 


Priority 

16 

12 

11 

10 

9 

8 

8 

6 

6 

5 

4 

3 

2 


Note  that  a  number  is  assumed  to  be  positive  unless  it  is 
preceded  by  a  minus  sign.  Similarly,  unless  a  decimal  point 
appears  with  a  number,  the  computer  will  assume  it  is  an 
integer.  Although  you  can  use  decimal  points  when  working 
with  the  computer,  commas  are  not  allowed.  The  use  of 
scientific  notation  for  very  large  and  very  small  numbers  was 
explained  in  the  section  on  variables.  Refer  back  to  that  if  you 
need  a  reminder  on  how  this  works. 
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The  BASIC  on  this  computer  works  fairly  quickly,  as  can  be 
seen  by  running  the  following  programs.  The  first  program  in 
this  section  works  out  arithmetic  progressions.  You  must 
enter  the  first  term,  the  common  difference,  and  the  number 
of  terms,  and  the  computer  will  produce  the  information  for 
you  very  rapidly. 


10  REM  Arithmetic  progression 
S0  PAINT  "I  will  wo rK  out  for 
you  the"  ^  ^ 

30  PRINT  “arithmetic 
on  from  the” 

40  PRINT  “in  formation  you  §ive 


Jfj  c-  *  4 

PRINT  '"Enter  the  first  ter 
ro  Bf 

60  INPUT  first 
70  PRINT  /first 

80  PRINT  '"find  the  common  dift 
erence?" 

90  INPUT  diff 
100  PRINT  ,di  f  f 

110  PRINT  '"How  Si  any  terms?'* 

120  INPUT  terms 

130  LET  ter»s=  INT  fterms+.SJ 
14-0  CL 5 

160  POKE  £3692,-1 

160  PRINT  INK  6;  PfiPER  0; "fln tb 
metic  progression" 

180  PRINT  INK  2;'"  Term  number" 
;TRB  13; "Value” 

190  LET  count =0 

200  FOR  L=0  TO  te  r»s -1 

210  LET  W=L+1 

220  LET  0  =  f s fSt  +  fL*di  f t > 

230  LET  count =count +0 
24-0  PRINT  TAB  4-;w;TRB  I3;q 
250  NEXT  L 

260  PRINT  INK  2 ;  TAB  4~  ‘t  '"The  SUK« 
is  count 


I  witt  work,  out  for  you  the 
arithmetic  progression  from  the 
information  you  give  me 

Enter  the  first  term 

234- 

find  the  common  difference*? 

13  -  5 

Ho w  many  terms'? 
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Arithmetic  progress-ion 


Term  number 

uaiue 

l 

23* 

2 

2*7*5 

3 

261 

* 

27*. 5 

S 

233 

S 

301  ,  S 

7 

315 

S 

32S.5 

3*2 

10 

355 . 5 

11 

36S 

12 

332.5 

The  sum  is  3699 


As  you  can  see,  the  program  also  works  out  the  sum  of  the 
terms. 


Prime  numbers 

Prime  numbers  are  very  easy  to  determine. 


3.0  rem  prime  numbers 
2®  PRINT  ‘'Enter  the  value  of  t 
he” 

30  PRINT  ••  maximum  prime 

r  i 

4.0  PRINT  TAB  4.;  “that  you  want" 
S0  INPUT  a:  PRINT  a 
60  DIM  Z  tai  :  LET  X  t  =3 
7©  FOR  j  =  l  TO  a:  LET  Z ( j) =j 
60  NEXT  j :  IF  a (4  THEN  CO  TO  2 

00 

S0  LET  z  =E  -  1£T  K  i  =A 

10®  LET  iz=S 
110  LET  iZ=j7^-5 
130  IF  i  z  >a  THEN  GO  TO  300 
13S  LET  jo =3 
130  LET  ex  =i  ZSZ  f  JCO 

14-0  IF  ex  =  INT  ex  THEN  GO  TO  110 
150  IF  €K(ZUo)  THEN  GO  TO  IS© 
160  LET  JoasjP+JI 
170  GO  TO  130 

160  LET  X  i  =X  i  *-JJ  .•  LET  Z  fM  J  j  =i  Z 


167 


190  GO  TO  110 
£00  POKE  £3S92,-1 

£10  PRINT  “The  prime  nujto±*£jrs>  l ^ 
to  ";a 

£30  PRINT  TRB  4;  INK  2;  PAPER  6 
i“Pri»e  no.  “  14  Prime  14 

240  FOR  c=i  TO  k  t 
S50  PRINT  TRB  4;  c  ,z  t  C> 

2&©  NE,XT  C 


Enter  the  vatu 
maxi  mum  pri me 
that  you  w 

3.3 

The  prime  numb 
Prime  no. 

1 

£ 

3 

4 

5 

6 
7* 

S 

3 


of  the 
nun be r 
n  t 

rs  up  to  19 
Pr  i  me 
1 
2 
3 
5 
7 

11 

13 

17 

19 


The  mathematical  ability  of  the  computer  can  also,  of  course, 
be  turned  to  produce  other  kinds  of  information. 


Statistics 

This  next  program,  a  series  of  statistical  routines,  can  easily 
be  broken  down  into  four  shorter  programs. 


The  four  programs  are: 

Arithmetic  mean  -  This  is  simply  the  average  of  a  set  of 

numbers. 

Geometric  mean  -  The  geometric  mean  is  the  nth  root 

of  the  product  of  the  numbers, 
where  n  is  the  total  number  of 
numbers  entered. 
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Harmonic  mean  -  The  harmonic  mean  is  derived  from 

the  reciprocals  of  the  entered 
numbers. 

Factorial  -  A  factorial  is  the  progression  A* (A 

-U*  <A— 2)*(A— 3)  . down  to 

*(2l*(1),  where  A  is  the  integer 
entered  in  line  4030.  As  this  only 
works  with  integers,  line  4040 
changes  any  non-integer  entry  into 
an  integer. 

The  routine  from  line  9000  presents  a  menu  of  choices. 

Note  the  use  of  GOTO  A*1000  in  line  9130.  This  is  a 

shorthand  way  of  saying 

IF  A  =  1  THEN  GOTO  1000 
IF  A  =  2  THEN  GOTO  2000 
IF  A  =  3  THEN  GOTO  3000 
IF  A  =  4  THEN  GOTO  4000 


You  can  often  make  use  of  this  technique  in  menu-driven 
programs. 


20  GO  TO  9G©S 

30  REM  QUOTE  MRRK5  UIITHIN 
LINES  104© i  2S40J  304© 

RRE  FROM  THE  R  KEY 


900  REM  ********************** 
3.000  REM  RRITHMETIC  HERN 
1010  PRINT  "RRITHMETIC  HERN" 

102©  PRINT  "ENTER  THE  NUMBERS  YO 


U  WISH  HE" 

103©  PRINT  TfiB 


5,;  "TO  ROERRGE  FOR 


YOU" 

104-0  PRINT  "ENTER  "E"  TO  END  YOU 


R  INPUT" 

1S6  0  INPUT  Q$:  IF  G$  =  ‘"*  THEN  GO 
TO  1©&© 


1070  IF  Q$=“E“  THEN  GO  TO  112© 
1880  POKE  £3692, -1:  PRINT  Q$ 

1090  LET  TOTRL=TOTRL  tVflL  Q$ 

110©  LET  COUNT =COUNT*l 
111©  GO  TO  106© 

1120  PRINT  ''“THE  RRITHHETIC  HER 
N  IS  TOTFIL  .'COUNT 
1130  GO  TO  900© 


1S00  REH 

2000  REH  GEOMETRIC  HERN 
201©  PRINT  “GEOMETRIC  HERN" 

n0f^£R5yT  “ENTER  THE  NUMBERS 
U  WioH  ME 


VO 
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£030  PRINT 
TRIG  HERN" 
£04-0  PRINT 
R  INPUT" 


"TO  USE  TO  FIND  GEOME 
"ENTER  "E  "  TO  END  YOU 


2050  LET  TOTAL =1 

£060  INPUT  ©$:  IF  ©$  =  "'*  THEN  GO 
TO  2060 

2070  IF  ©$  =  "E  ■'  THEN  GO  TO  2120 

2060  LET  COUNT  = COUNT  + 1 

£090  LET  TOTAL =TOTAL +URL  ©$ 

£10©  POKE  23692..  -1:  PRINT  ©$ 

£110  GO  TO  2060  _ _ 

£120  PRINT  ' “THE  GEOMETRIC  MEAN 
JS  "  ;  TOTAL  !  f  1/COUNT.i 
£13©  GO  TO  9000 

2900  REM  ********************** 
3000  REM  HARMONIC  MERN 


3010  PRINT 
3020  PRINT 
U  WISH  ME" 
3030  PRINT 
NIC  MERN" 
304-0  PRINT 
R  INPUT" 


'HARMONIC  MERN" 

‘ENTER  THE  NUMBERS  YO 

‘TO  USE  TO  FIND  HARMO 


"ENTER  '  E "  TO 
©$:  IF  ©$  =  ' 


END  YOU 

THEN  GO 


305©  INPUT 

3060°IF  0*=-fo-THfN  mtnt  Q®30 

let  count  «COUNT + 1 
GO  TO  3050  _ 

PRINT  * “THE  HARMONIC  MERN 
ly-  (TOTAL  /COUNT ) 


3050 
3090 
3100 
3110 
3120 
S 


3130  GO  TO  9000 
3900  REM  ********************** 
4-000  REM  FACTORIAL 
4-SI©  PRINT  "FACTORIAL" 

4-020  PRINT  "ENTER  AN  INTEGER  " .. 
"LESS  THAN  34" 

4.030  INPUT  MUM:  IF  HUM  >  *34  THEN 
GO  TO  403© 

4040  LET  NUMsINT  (NUH) 

4050  LET  A  =  1 
4060  FOR  B=±  TO  NUM 
LET  A=A*B 
NEXT  B 

PRINT  ' "THE  FACTORIAL  OF  ", 
IS  ";  A 

REM  s*-***.*-**-****.*#*.***.*.*.**. 
YOU  URNT:1  '"SELECT  THE  PROGRAM 
9010  PRINT  '"1  -  ARITHMETIC  MERN 


*07© 

4080 

4-100 

NUM;  ‘ 

5900 

9000 


3030  PRINT  '*2  —  GEOMETRir  MPdm 
PRINT  "3  -  HARMONIC  HERN- 
9040  PRINT  "4  -  FACTORIAL" 

9050  PRINT  “5  -  TO  END" ■  PRINT 

9060  LET  R  $  =  INKEY  *  ‘  PRINT 
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9S7“0  IF  R$<"l’k  OR  fi$  >  “5"  THEN  CO 
TO  90S© 

30S0  LET  A=UAL  R$ 

9090  IF  R=5  THEN  STOP 
9100  LET  TOTfiL  =0 
9:110  LET  COUNTS© 

9190  PRINT 
***********" 

9130  CO  TO  ©*1000 


It  can  perform  far  more  complex  tasks.  This  program,  for 
example,  calculates  the  mean,  standard  deviation,  standard 
error  of  the  mean  and  variance  of  up  to  20  frequency 
distributions  with  up  to  240  items  in  each.  It  can  also 
calculate  any  significant  difference  between  any  two 
frequency  distributions  with  the  help  of  Student's  T-test. 


10  REM  T-TEST 

12  REM  CONCERTED  FROM  A 
PROGRRM  BY  ALLAN  NORLIN 

13  REM  BY  ANDERS  0L  UNO 
20  DIM  X  124-0) 

22  DIM  N (20) 

24.  DIM  M  (20) 

26  DIM  S (20) 

28  DIM  E(20) 

30  DIM  U (20) 

32  DIM  G (20) 

110  PRINT  "THIS  PROGRAM  CALCULA 
TES  THE  MEAN” 

115  PRINT  STANDARD  DEVIATION , 


118  PRINT 

122  PRINT 
R  OF" 

123  PRINT 
ONS" 

124.  PRINT 
TIONS) ” 

13©  PRINT 
TO" 

135  PRINT 


"STANDARD  ERROR  AND" 
"UARIANCE  FOR  A  NUMBE 

" FREQUENCY  DISTRIBUTI 

" (MAXIMUM  20  DISTRIBU 

"AND  STUDENTS  T-TEST 

"EVALUATE  IF  THERE  IS 


14.0  PRINT  "A  SIGNIFICANT  DIFFER 
ENCE  ” 

14.1  PRINT  "BETWEEN  ANY  TWO  OF  T 
HE" 


14.2  PRINT  “ FREQUENCY  DISTRIBUTI 
ONS  " 

14.4.  PRINT 

14.S  PRINT  "DO  YOU  WANT  THE  RESU 
LTS  ONLY  ON" 

14.7  PRINT  "THE  DISPLAY  (D)  OR  A 
LSO  ON  " 

14-8  PRINT  "THE  PRINTER  (P)  " 
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14-9  INPUT  U* 

150  CUS 

160  LET  <3=0 

161  LET  0=0 

162  LET  S=0 

170  PRINT  "HOU  MANY  DISTR1BUTIO 
NS?" 

ISO  INPUT  H 
200  LET  G=G  +  1 
205  PRINT 

220  PRINT  "FREQUENCY  DISTRIBUTI 
ON  NO  “;G 

24.5  PRINT  “HOU  MANY  ITEMS  OF  DA 
Tft?" 

250  INPUT  N 
2S2  PRINT 
255  LET  NtG)=N 
260  LET  £1=3 
262  LET  62=0 

265  PRINT  “INPUT  DATA  UITH  NEU 
LINE  AFTER" 

270  FOR  1=1  TO  N 

271  CLS 

280  PRINT  “NO  *■;  I 
290  INPUT  X 
295  CLS 

300  LET  Sl=51+X 
310  LET  62  =S 2+X#X 
320  LET  X (I) =X 
330  NEXT  I 
34.0  LET  M(G)  =51/N 

34-5  LET  U  (G)  =  (  <52-Sl*Sl/N)  /  fN-1 

>  ) 

350  LET  StG)=SQR  U  CG) 

360  LET  E  <G1  =S  (G>  /5QR  <NJ 

380  PRINT  “DO  YOU  UANT  THE  DATA 

PRINTED?  Y/N” 

390  INPUT  G$ 

395  CLS 

4.00  IF  Q$e"N"  THEN  GOTO  550 
405  PRINT  “FREQUENCY  D ISTPJgUTI 
ON  NO :  “  ;  G 
410  LET  0=0+1 
415  LET  R=1 
417  LET  K  =0 
420  FOR  1=1  TO  N 
425  PRINT  AT  R  I.;  "  : 

430  IF  I/20=INT  <  1/23)  THEN  LET 
K-K+10 

431  IF  K  > 2 1  AND  U*  =  "P*’  THEN  COP 

432  IF  K  >2 1  THEN  GOSUB  3000 
435  IF  K>21  THEN  LET  K  =K -30 
450  IF  1/20=1 NT  t 1/20)  THEN  LET 
RsR-80 

—  455  LET 
480  NEXT  I 

490  IF  U$  =  ’*P“  THEN  COPY 

500  GOSUB  3000 

550  IF  G  <M  THEN  GOTO  200 
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74.0  FOR  Isl  TO  M 

7S0  PRINT  " FREQUENCY  DISTRXBUTI 
ON  NO:  **; 

752  PRINT 

755  PRINT  "NUMBER  OF  DRTR  =  **;N 
t  J) 

758  PRINT 

768  PRINT  "MEAN  =  **;M(I) 

762  PRINT 

765  PRINT  "STANDARD  DEUIRTION  = 
*•;  S  (I) 

767  PRINT 

770  PRINT  "STANDARD  ERROR  *  ";E 
(I) 

772  PRINT 

775  PRINT  "UARIANCE  =  " ; V ( I) 

776  IF  Ui^’P"  THEN  COPY 

777  GOSUB  3800 
788  NEXT  I 
708  PRINT 

808  PRINT  "DO  YOU  UANT  T -TEST? 

Y/N" 

818  INPUT  G$ 

815  CLS 

820  IF  0$=“N“  THEN  GOTO  1200 
838  PRINT  “T-TEST  BETWEEN  TWO  D 
ISTR IBUT IONS “ 

835  PRINT 


84-0  PRINT  “INPUT  NO  OF  FIRST  01 
STR  IBUT  ION  “ 

84-5  INPUT  SI 

84-7  PRINT  “NO:‘*;51 

84-0  PRINT 

850  PRINT  “ INPUT  NO  OF  SECOND  D 
ISTRIBUTION" 

852  INPUT  52 

854.  PRINT  “NO:“.;S2 

890  LET  R=N (SI)  +N  (52) 

900  LET  B  — N  (SI)  *N  (52) 

910  LET  D=R-2 

920  LET  T=RBS  CM  (SI)  -M  (32  )  )  ,/SOR 
( ( (N (SI) -1) *5(51)  f  2+ (N ( SS) -1) * 
SOS)  T  2)  *A/  (B*D)  ) 


930 

93S 

94.0 

IONS 

58 

94.5 

950 

955 

950 

965 

970 


GOSUB 

CLS 

PRINT 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


2080 

“T-TEST  FOR 
NO.  "jSi;  ” 


"DFt";  l 


D ISTR IBUT 
RND  NO: 


970  PRINT  “Ps'^P 
975  PRINT 

900  IF  P >0.801  THEN  GOTO  990 
982  PRINT  ”P <0.001  ***“ 

984.  GOTO  1050 

990  IF  P>0.01  THEN  GOTO  1000 
992  PRINT  “PC0.01 
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994-  GOTO  1650 

1000  XF  P>0„05  THEN  GOTO  1010 

1009  PRINT  "P<0^®5  *" 

1064.  GOTO  1050 

1010  PRINT  "P>0.05  NS." 

1050  IF  W*="P"  THEN  COPY 

1055  PRINT 

1056  PRINT 

1057  PRINT 
1053  PRINT 

106O  PRINT  "DO  YOU  URNT  TO  TEST 
MORE" 

1065  PRINT  "DISTRIBUTIONS'?  Y/N" 
1070  INPUT  G$ 

1075  CLS 

1030  IF  ©*="N"  THEN  GOTO  I960 
1090  GOTO  840 

I960  PRINT  "DO  YOU  URNT  TO  RNRLY 
CE  MORE" , "FREQUENCY  DISTRIBUTION 
S?  Y/-N" 

1210  INPUT  0* 

1215  CLS 

1220  IF  Q*=“Y"  THEN  GOTO  120 
124-0  PRINT  "*»*»THE  END****" 

124-5  GOTO  9999 

2000  REM  CRLCULRTE5  T-URLUE,  P- 
URLUE  (PROBABILITY)  RND  DF-URLUE 
(DEGREES  OF  FREEDOM) 

2020  LET  Pal 
2025  LET  Mai 

2030  IF  T=0  THEN  GOTO  2210 

204-0  LET  U=T*T 

2050  IF  U<1  THEN  GOTO  2100 

2060  LET  I«M 

2070  LET  U=D 

2030  LET  T1=L) 

2090  GOTO  2130 
210O  LET  I=D 
2110  LET  vl  =li 
2120  LET  Tl=l/U 
2130  LET  fll=2/9/I 
214-0  LET  Bl=2/9/J 

21SO  LET  Z=R6S  (  (1-B1)  *T1  1  (1/3) 
-1+fll) /SOR  (B1*T1 f  (2/3) +R1) 

3160  XF  J>3  TMEN  GOTO  2186 
2170  LET  Z=Z*(1  +  .0B*Z  t  4-/U  *  3) 
2130  LET  P  =  .S/ (1+Z*  (  .  196S54-+Z*  (  . 
115194. +Z*  (  .  00034.4.  +Z*.  019527)  )  )  ) 

1 4 

2190  IF  U>1  THEN  GOTO  2210 
22O0  LET  P=X-P 
2210  RETURN 

3000  PRINT  RT  S1j0; "TO  CONTINUE 
PRESS  C 

3004-  IF  INKEYS  <  >  "C"  THEN  GOTO  30 
04 

3307  CLS 
3010  RETURN 
9999  STOP 
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Species 

The  final  program  in  this  section  uses  the  computer  to 
simulate  the  life  cycles  of  two  species,  one  of  which  preys 
upon  the  other,  and  to  graph  their  relative  populations.  The 
relationship  between  the  two  species  is  controlled  by  a 
differential  equation.  You  enter  the  starting  populations,  as 
numbers  between  one  and  five.  Fractions  are  acceptable,  and 
it  is  fascinating  to  enter  a  very  low  population  for  one  of  the 
animals,  and  a  high  one  for  the  other,  and  watch  the  two 
evolve.  When  the  program  has  run  through  a  specified 
number  of  generations,  it  will  generate  another  starting 
population  for  the  two  species.  The  development  of  this 
relationship  will  then  be  graphed,  on  top  of  the  existing 
graph,  so  you  can  build  up  a  number  of  graphs  showing  the 
effects  of  different  starting  populations  for  the  predator  and 
its  prey. 


3  BORDER  2:  PRPER  6:  CL5 
10  REM  Species- 

20  PRINT  **  HOW  MANY  OF  SPECIE* 
OME'""  (1  TO  5)-?" 

30  INPUT  X :  IF  OR  X > 3  THEN 

GO  TO  30 

4-0  PRINT  '  **  “RND  OF  SPECIES  TWO 
? . tl  TO  EX  •?’* 

50  INPUT  Y:  IF  Y < 1  OR  Y>5  THEN 
GO  TO  50 

55  LET  X*X+RND:  CIS 
SO  FOR  Z=1  TO  20 


70  FOR  T=1  TO  7  STEF  -5 

a©  print  fir  1,3.;  “Spec its  one. 

FLfiSH  1;  BRIGHT  I;**  I  NT  (X 

•s-10000?  ;  **  ** 

90  PRINT  RT  2,1;  INK  I; "Specie 
s  two ;  *•;  FLRSH  1J  BRIGHT  1.;  INK 

2;"  INT  iY*  1000©}  ;  " 

100  LET  X»X+ (4.*X>&*X*Y)  »0,01 
HO  LET  Y=Y  +  fX*Y-3*Y)  30.  ©I 


120  PLOT  30  3-X  ,  30  3-Y 

130  NEXT  T 

135  BEEP  .05, Z+T 

14-0  NEXT  Z 

ISO  LET  X«RND*6 

160  LET  Y=RND*6 

I 60  GO  TO  SO 
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Functions 

The  computer's  dialect  of  BASIC,  in  common  with  other 
BASICS,  contains  a  number  of  pre-programmed  functions 
which  you  can  use  in  a  program,  or  in  the  direct  mode.  The 
following  discussion  includes  a  program  which  uses  a 
'defined  function'  to  draw  a  picture  of  a  bat! 

General  functions: 

ABS  —  This  function,  AB Solute,  gives  the  value  of  X, 
ignoring  the  sign,  so  that  if  X  was  —  10,  ABS(X) 
would  be  10.  Similarly,  if  X  was  10,  ABS(X)  is 
still  10. 

INT  —  The  I  NT  function  gives  the  whole  number,  or 
INTeger  part  of  a  number,  giving  the  largest 
number  which  is  not  greater  than  X.  If  X  was  2-42, 
INT(X)  would  be  2. 

INT  rounds  off  numbers  to  the  next  lowest  whole  number, 
e.g,  INT  2,2  is  2,  I  NT  2.9  is  2,  INT  2  is  2  and  soon.  A  frequent 
requirement  is  to  round  off  numbers  to  the  nearest  whole 
number,  so  that  2.6  becomes  3,  etc.  (some  commands  do 
this  automatically,  e.g.  PRINT  AT,  POKE).  This  is  quite  easy 
to  do.  Suppose  the  number  to  be  rounded  off  is  A.  If  we  first 
add  0.5  to  A,  then  apply  INT,  the  answer  will  be  the  nearest 
whole  number.  If  as  an  example,  A  was  2.6  and  we  wished  to 
round  off  to  the  nearest  whole  number:  PRINT  INT 
(2.6 +  0.5)  would  give  3  whereas  PRINT  INT  (2.3 +  0.5) 
would  give  2.  PRINT  INT  (2,5 +  0.5)  is  rounded  up  to  3. 

It  is  often  necessary  when  doing  monetary  calculations  to 
have  answers  to  two  decimal  places  to  resemble  dollars  and 
cents  values.  This  routine  does  this.  It  also  inserts  a  0  before 
the  decimal  point  if  the  answer  is  less  than  $1 .00,  Enter  the 
amount  as  A  in  line  10,  in  units  of  dollars,  but  do  not  enter 
the  $  symbol  —  that  will  be  added  by  the  routine  in  line  50. 
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10  INPUT  R 
20  LET  fl$=STRS  (INT 
) /I  00) 

25  IP  04(2)=".”  THEN  LET  R5="0. 
-+R*  _ 

30  LET  B=LEN  R4-LEN  STR4  INT  U 

fiL  R4 

40  LET  R$=R$+  <*'  .  00"  AND  5=0)  i 
’0"  AND  5=2) 

50  PRINT  “$";R$ 

60  GO  TO  10 


1 1 . 245 

33 

«  4i  _ 

333 . 833 
0  *  9999 
22  =  309 


$11 , 2S 
$33.00 
$  3  *3 . 10 
$33*3 . 39 
$1 . 30 
$22,01 


RND  —  This  is  used  to  generate  a  RaNDom  number.  RND 
gives  a  random  number  between  zero  and  one. 

SGN  —  This  function  returns  the  SiGN  of  the  variable  in 
brackets,  the  SiGN  of  the  argument  as  this 
variable  is  known.  If  X  equals  20,  that  isr  X  is  a 
positive  number,  SGN(X)-1.  SGN(  ~  20)  —  —  1 . 
SGN(0)  =  0. 

TAB  —  As  pointed  out  earlier  in  the  book  this  is  the 
TABulating  function,  which  moves  the  PRINT 
position  across  the  line  the  number  of  spaces 
indicated  by  the  argument  of  the  function.  Thus, 
PRINT  TAB(6);  will  print  the  $  at  the  seventh 
position  across  from  the  left-hand  edge,  while 
PRINT  TAB(13);"$"  will  print  it  14  spaces  across. 
The  direction  down  the  screen  can  also  be 
specified,  by  adding  a  second  argument  after  a 
comma  within  the  brackets.  Thus,  PRINT 
TAB(4,9);"$"  will  print  a  dollar  sign  five  spaces 
down,  and  ten  across.  TAB  reduces  a  number 
modulo  32,  meaning  that  the  argument  of 
(number  after)  TAB  can  be  larger  than  31;  it  will 
be  reduced  to  a  number  in  the  range  0  to  31  and 
the  PRINT  position  moves  on  the  same  line  unless 
this  would  involve  backspacing  in  which  case  it 
moves  onto  the  next  line.  This  modulo  business 
means  is  that  the  argument  of  TAB  is  divided  by 
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32  (the  number  of  columns  per  line  on  a  screen) 
and  the  remainder  taken.  You  may  be  able  to  take 
advantage  of  this  when  the  PRINT  spacing  is 
determined  by  calculation  since  you  do  not  have 
to  ensure  that  the  number  falls  in  the  range  0  to 
31. 

EXP  —  This  function  gives  the  value  of  e  raised  to  the 
power  of  the  argument,  so  PRINT  EXP  5  will  give 
148.41316. 

LN  —  LN  X  yields  the  natural  logarithm  to  base  e,  so 
PRINT  LN  5  gives  1.6094379. 

SQR  —  This  function  yields  the  SQuare  Root  of  a 
number,  so  when  X  is  five,  PRINT  SQR  X  gives 
2.236068. 


Trigonometrical 

functions: 

SIN  —  This  gives  the  SINE  of  an  angle  in  radians.  SIN  5 
yields  -0,95892428. 

COS  —  Yields  the  COSine  of  an  angle  in  radians.  PRINT 
COS  X  where  X  equals  five  gives  0.28366219. 
TAN  —  Produces  the  TANgeni  of  angle  X  in  radians. 

(The  computer  measures  angles  in  radians.  PI  radians  equals 
180  degrees). 

The  RANDOMIZE  function  works  as  follows: 

The  number  you  place  after  the  word  RANDOMIZE  is  stored 
in  the  system  variables  after  being  rounded  off  to  the  nearest 
whole  number.  If  you  just  enter  RANDOMIZE  or 
RANDOMIZE0  then  it  is  given  the  value  of  the  frame  counter. 
This  value  is  not  affected  by  CLEAR  or  RUN,  but  is  reset  to  0 
by  NEW,  as  it  is  at  switch-on.  It  changes  every  time  you  use 
RND. 
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Converting  other 
Basics 

A  wealth  of  computer  programs  written  in  BASIC  can  be 
found  in  a  variety  of  books  and  computing  magazines,  but  as 
all  versions  of  BASIC  differ  to  some  extent,  it  is  unlikely  that  a 
program  written  to  run  on  another  computer  will  work  on 
your  computer  without  some  change.  The  extent  and  nature 
of  these  changes  will  depend  greatly  on  the  structure  of  the 
particular  program  and  how  it  handles  data,  but  it  is  possible 
to  give  some  general  guidance  on  things  to  look  for  when 
approaching  the  task  of  converting  a  "foreign"  program  to 
run  on  your  computer. 


Integer  Arithmetic 

In  general,  always  add  the  function  I  NT  before  a  division  in  a 
program  designed  for  a  computer  with  integer  arithmetic. 
You  may  require  brackets  around  the  division  so  that  I  NT 
works  only  on  the  result  of  that  division. 


DIM 

Some  BASICS  allow  you  to  write  several  DIM  statements  on 
one  line  such  as  DIM  A$<9),  B$(8),  C$(7).  You  will  have  to 
replace  this  by  individual  DIM  statements  on  separate 
program  lines.  If  the  program  calls  for  arrays  with  names  that 
are  more  than  one  letter  long,  then  these  have  to  be  replaced 
by  single  letter  names  like  A$  or  B.  If  you  do  not  have  enough 
letters  available  then  you  may  be  able  to  declare  additional 
dimensions  to  the  existing  ones  for  a  certain  array  and  use  the 
extra  dimension  to  replace  an  array.  Beware  of  zero 
subscripts. 
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GET,  GET$ 

This  is  a  function  that  reads  characters  or  values  from  keys 
pressed  on  the  keyboard.  It  takes  various  forms  on  various 
computers,  but  in  general  it  waits  until  a  key  is  pressed  before 
it  goes  on,  assigning  either  the  character  corresponding  to 
the  key  pressed  or  the  code  of  that  character  to  a  variable. 
For  example,  GET  A$  or  LET  A$-GET$.  You  could  do  this 
on  your  computer: 


1©©0  LET  a INKEYS 

101©  TP  =  THEN  GO  TO  1000 


This  would  return  the  character  corresponding  to  the  key 
pressed  on  the  keyboard.  If  the  function  was  to  return  the 
CODE  {which  will  probably  be  written  as  ASC)  of  the 
character  then  use  this  routine: 


100©  LET  a$=INKEY$ 

1010  XP  3$  =  "  11  THEN  GO  TO  1000 
1©2©  LET  a “CODE  a* 

1030  PRINT  a 


Slightly  different  is  the  version  that  returns  a  numeric  value 
rather  than  a  character  code.  It  is  necessary  to  ensure  that  the 
character  read  from  the  keyboard  is  in  the  range  "0"  to  "9” 
so  that  we  can  apply  VAL  to  convert  the  character  to  a 
number.  Here's  one  way: 


IDO©  LET  a#=lNKEY$ 

101©  IP  OR  3  $>"£**  THEN  GO 

TO  100© 

1©20  LET  a=URL  a* 

103©  PRINT  a 


You  may  also  come  across  a  version  of  INKEY$  which  allows 
a  time  limit  to  be  specified  for  an  user  response,  e.g. 


100  LET  A$  =  1NKEY$(X) 
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where  X  specifies  the  time  limit.  This  can  be  converted  in  two 
ways,  either  as: 

1©  LET  X'  =50 
10©  PAUSE  x 
110  LET  a$=INKEY$ 

or  as  follows,  demonstrated  in  a  simple  game: 


5  REM  ENGAGE  CAPS  LOCK  FIRST 
IQ  LET  S'  $  =C'HR$  (INT  <RND*2©>  f-C 

ODE  "fi">  „ 

20  PRINT  AT  10,0; "QUICKLY,  PRE 

55  ” : B$ 

IS©  FOR  a  w©  TO  10© 

11©  LET  a$  =  INKEY$  _  „  , 

12©  IF  a  $  <  > " "  THEN  GO  TO  14-© 

125  NEXT  a  _ _ 

13©  PRINT  “Tiae  is  up“.  »TOP 
14-©  IF  A$=B$  THEN  PRINT  “YOU  MS 
re  right**:  STOP 
15©  PRINT  "You  were  wrong" 


VAL 

If  the  argument  of  VAL  does  not  form  a  valid  numerical 
argument,  you  get  an  error  report.  Other  BASICS  return  0. 


SET,  RESET 

These  are  used  to  make  a  particular  screen  point  white  or 
black.  Replace  with  a  PLOT/OVER/ PRINT  AT. 
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This  is  an  extension  to  the  IF.  .  .THEN  conditional  statement 
and  allows  more  than  one  outcome  depending  on  whether 
the  conditional  statement  is  true  or  false.  It  may  be  replaced 
by  two  conditional  expressions  on  your  computer.  For 
example: 

20  IF  X  =  1  THEN  LET  Y  =  7  ELSE  GOTO  80 
may  be  replaced  by: 

20  IF  X=  1  THEN  LET  Y  =  7 

21  IF  X<>  1  THEN  GOTO  80 

If  the  action  of  ELSE  is  to  assign  one  of  several  alternative 
values  to  a  variable  then  it  can  be  replaced  on  one  line,  e.g. 

50  IF  X  =  1  THEN  LET  Y-7  ELSE  LET  Y-8 

may  be  replaced  by: 

50  LET  Y  =  (7  AND  X  =  1  >  T  (8  AND  X<  >  1 ) 

Certain  expressions  such  as  the  one  above  may  be  replaced 
by  even  shorter  forms  such  as: 

50  LET  Y  =  7  +  <1  AND  X  <  >  1 ) 

No  general  guideline  can  be  given  since  the  method  used  will 
vary  from  example  to  example  —  the  examples  above  give  an 
idea  of  what  to  expect. 

You  may  come  across  a  statement  where  the  action 
performed  by  ELSE  is  itself  conditional: 

10  IF  X—  1  THEN  LET  Y=1  ELSE  IF  X  =  5  THEN  GOTO 
100 

This  will  need  to  be  rewritten  as  either:- 


10  IF  X  THEN  LET  Y-1 

11  IF  X<>  1  THEN  IF  X-5  THEN  GOTO  100 


or:- 

10  IF  X=1  THEN  LET  Y=V 

11  IF  X<>  1  AND  X  —  5  THEN  GOTO  100 


Again  you  may  meet  all  sorts  of  conditional  ELSEs,  and  the 
Spectrum  versions  will  depend  on  the  variation  encountered. 


REPEAT....  UNTIL 

This  is  a  loop  that  performs  an  operation  continuously  ending 
only  when  a  specified  condition  is  met.  Its  use  is  so  wide  it  is 
difficult  to  specify  a  universal  method  of  conversion  to  ZX 
BASIC,  probably  the  best  being  the  IF... THEN  GOTO 
conditional  statement.  Here  is  an  example: 

10  PRINT  "ENTER  YES  OR  NO" 

20  REPERT 
30  INPUT 

4*0  UNTIL  R$  =  uYES‘k  OR  fi$-MNOu 
may  be  replaced  by: 

lO  INPUT  "Enter  yes  or  no 
£0  XF  s*o'‘YHS° 

RNO  a$o,{n O'*  RN£>  «*<>4lWOM  then  g 
O  TO  10 

REPEAT.  ..  .UNTIL  structures  are  generally  far  more 
complex  than  this  example,  and  it  may  be  necessary  to  find  a 
means  of  conversion  other  than  IF... THEN  GOTO.  For 
example,  where  the  value  of  a  variable  is  the  determining 
factor,  a  FOR/ NEXT  loop  may  sometimes  be  used.  However, 
the  possibility  of  using  an  IF... THEN  GOTO  conditional 
statement  should  always  be  considered  and  is  sometimes  the 
only  acceptable  method  of  conversion. 
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Undefined 

variables 

If  you  attempt  to  use  a  variable  before  it  has  been  defined  or 
assigned  in  a  program,  then  some  computers  will  return  a 
value  of  0.  You  get  an  error  report  on  your  computer  if  the 
variable  has  not  previously  been  assigned.  So  all  variables 
must  have  been  assigned  when  using  programs  on  your 
computer  which  use  variables. 


Matrices 

Some  BASICS  have  matrix  functions  which  perform 
operations  on  arrays.  Your  computer  does  not  have  these 
functions,  so  you  will  have  to  perform  the  operations  on  array 
elements  individually,  possibly  by  means  of  a  loop. 


10  DIM  XtYJ 
20  DIH  P  tY) 
30  MAT  X=P 


This  particular  example  can  be  replaced  by: 


10  LET 
2©  DIM  X 
30  DIM  p  t U ) 

4-0  LET  n=n+ 1 

50  IF  n<y  THEN  GO  TO  40 
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PROC,  ENDPROC 

This  is  a  method  of  using  subroutines  to  do  certain 
procedures  in  such  a  way  that  among  other  things  makes 
programs  and  listings  easier  to  understand  and  read  (it  is 
called  structured  programming  by  some).  It  enables 
subroutines  to  be  used  specifically  to  do  certain  things  and  it 
is  like  a  subroutine  in  many  ways,  but  with  the  important 
exception  that  it  is  called  by  a  name  rather  than  by  its  line 
numbers.  Take  this  example,  which  prints  the  score  on  the 
screen:  — 

100  PROCscore 


1000  DEF  PROCscore 
1010  PRINT  "SCORE  =  ";S 
1020  ENDPROC 

ENDPROC  is  in  a  way  similar  to  RETURN  in  that  the 
procedure  comes  to  an  end  and  the  program  resumes  from 
the  line  after  the  one  which  called  the  procedure,  in  this  case 
the  line  after  line  100.  The  name  of  the  procedure  is  not 
used  in  your  computer's  version,  although  it  can  be  adapted 
for  the  purpose  as  the  second  example  Sinclair  version  will 
show.  The  simplest  method  of  conversion  to  ZX  BASIC  is  for 
line  100  to  GOSUB  line  1000,  possibly  with  a  REM 
statement  somewhere  in  the  subroutine  to  identify  it,  and  end 
the  subroutine  with  a  RETURN  command. 

a©®  GOSUB  100Q 

100G " REM  SCORE  5UBRCUT IME 
1010  PRINT  “SCORE=MjS 
XC320  RETURN 


If  you  want  to  retain  the  procedure/subroutine  naming 
facility  you  can  use  a  variable  of  the  same  name  as  the  PROC 
name  assigned  during  the  course  of  the  program  before  the 
subroutine  is  called,  and  use  this  variable  as  the  destination 
for  the  GOSUB  command.  You  could  include  a  REM 
statement  in  the  subroutine  to  identify  the  subroutine  and  tie 
it  up  with  the  variable  name  used.  It  is  useful  to  use  inverse 
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characters  in  these  REM  statements  so  that  they  stand  out 
from  the  rest  of  the  listing  text.  So  you  can  make  your 
programs  seem  fairly  structured. 


50  LET  SCORE =1S©0 


100  GOSUB  SCORE 


1000  REM  SCORE  SUBROUTINE 
1010  PRINT  ”SCORE«"; S 
1020  RETURN 


Although  PROCs  may  be  complex,  an  ordinary  subroutine  is 
the  best  method  of  conversion  to  your  BASIC  using 
GOSUB/RETURN. 


INSTR(A$,B$) 

This  is  a  function  that  looks  to  see  if  there  is  a  copy  of  B$  in 
A$,  and  if  there  is  it  tells  you  where  the  copy  starts.  For 
instance,  if  B$  was  "PUT"  and  A$  was  "COMPUTER"  then 
the  value  of  INSTR( A$,B$)  would  be  4  because  the  part  of  A$ 
which  held  the  letters  "PUT"  started  at  the  fourth  element  of 
A$.  If  the  function  does  not  find  a  copy  of  B$  in  A$,  the 
INSTR(A$,B$)  has  a  value  of  0.  A  special  routine  has  to  be 
written  to  provide  this  function  on  your  computer. 

Here  is  one  method  of  converting  this  function  to  run  on  the 
Spectrum: 


HRPPY  P 

INSTR  t.  R$  *  ©  $  >  =3 

HRPPY  H 

INSTR 1 =1 
HRPPY  SRD 
INSTR  =© 

SINCLAIR  BASIC 
INSTR  B$'t  =© 

SINCLAIR  SIN 
INSTR  =1 
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1©  REM  --  LET  Y=IN5TR;ft$,Bt) - 

30  INPUT  P$ 

3©  INPUT  &$ 

4-©  PRINT  R$;  “  ";B$ 

5©  GO  SUB  1SSS 

&0  PRINT  'TNSTR(fi$,S$>=";Y 
7©  GO  TO  30 

130©  REM  SUBROUTINE  FOR  * INSTR ' 
1010  LET  V  =© 

103©  IF  LEN  R$=0  OR  LEN  B$=D  OR 

LEN  B$>LEN  R$  THEN  RETURN 

1030  FOR  Yil  TO  LEN  fl$~LEN  B$t-1 

ISA©  IF  R$(Y  TO  Y+LEN  B£-1>=S$  T 

HEN  RETURN 

1050  NEXT  Y 

10S0  LET  Y=© 

107*0  RETURN 


Note  that  if  you  want  to  detect  whole  words  rather  than  just 
strings  then  you  will  have  to  examine  A$  for  space  or 
punctuation  marks  that  signify  the  start  and  end  of  words. 
The  routine  above  just  finds  matching  strings,  so  that  if  you 
wanted  to  find  the  word  CAT  in  a  phrase  containing  the  word 
CATASTROPHIC,  this  would  trigger  on  the  first  three  letters 
of  CATASTROPHIC.  However,  users  of  INSTR  usually  have 
this  problem  so  the  program  will  cater  for  this  anyway! 


DIV 

D!V  gives  the  whole  number  part  of  the  result  of  a  division, 
for  example,  17  DIV  5  gives  3.  INT  can  be  applied  to  the  result 
of  the  division  on  your  computer.  So  A  DIV  B  on  the 
Spectrum  would  be  INT  (A/Bh 


MOD 

MOD  gives  the  remainder  of  a  division,  e.g.  1 7  MOD  5  is  2.  A 
MOD  B  is  A  —  (INT  <A/B*B)  on  the  Spectrum.  Note  that 
TAB  carries  out  its  own  MOD  action  (modulo  32)  on  your 
computer. 
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TAB 

Some  computers  may  have  two  arguments  to  the  TAB 
function,  which  is  used  to  space  out  along  the  screen.  This 
use  of  TAB  conforms  to  your  computer's  use  of  AT.  For 
example,  TAB  (X,Y)  on  some  computers  would  correspond 
to  AT  Y,X;  on  your  machine.  The  X  and  Y  coordinates  may 
be  in  reverse  order  on  some  computers. 


Degrees  and  radians 

Your  Spectrum  deals  with  trigonometrical  functions  in 
radians  by  this  expression: 

LET  RADIANS  =  (PI  *  DEGREES)/180 

and  radians  may  be  converted  to  degrees  by: 

LET  DEGREES  =  (180*  RADIANS)/PI 


Base  10  logarithms 

As  your  computer  works  in  natural  logs,  to  base  e,  if  you 
need  logs  base  1 0  for  any  reason,  these  may  be  found  using 
the  expression: 

LET  LOGBASE10  (X)  -  (LN(X)/(LN(10)) 

You  could  use  this  to  find  logs  (any  base),  suppose  you 
wanted  the  log  base  B  of  X: 

LET  LOGBASEB  (X)  -  (LN(X))/(LN(B)) 


188 


% 

The  percentage  symbol  is  generally  used  to  specify  an  integer 
variable,  e.g.  A%.  These  are  usually  used  to  save  memory  or 
because  they  can  be  processed  faster  than  conventional 
variables.  !n  genera!,  there  is  no  harm  to  using  an  ordinary 
variable,  although  you  should  be  wary  of  these  integer 
variables  being  ass  qned  as  the  result  of  a  division  as  they 
automatically  truncaie  the  quotient  to  its  integer  value.  In  this 
case  use  LET  A  =  I  NT  (A/2)  for  example  to  "integerise"  the 
result  of  the  division. 


? 

■ 

On  most  computers  the  symbol  ?  is  used  as  an  abbreviation 
for  the  command  PRINT. 


PEEK  and  POKE 

These  two  commands  are  very  powerful  instructions  that 
enable  you  to  do  things  with  your  computer  that  you  might 
not  be  able  to  do  otherwise.  Let  us  start  by  defining  the  two 
terms  PEEK  and  POKE. 

(1)  PEEK  m  gives  us  the  numbers  stored  at  address  m  in 
memory. 

(2)  POKE  m,n  puts  number  n  into  memory  at  address  m. 
When  accepted,  it  erases  what  used  to  be  there. 

The  term  address  needs  explaining.  A  computer  like  yours 
thinks  and  remembers  in  numbers,  not  words  as  people  do. 
Certain  patterns  of  numbers  make  parts  of  the  computer  do 
specific  things.  This  is  called  a  program.  Now  the  computer 
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needs  a  way  to  hold  ail  these  numbers  so  that  they  are 
remembered  until  needed  and  can  then  be  looked  at,  and 
once  their  values  and  patterns  are  known,  the  computer  can 
decide  what  it's  going  to  do. 

Certain  patterns  of  numbers  may  make  the  computer  PRINT 
something  on  the  screen,  add  two  numbers  together  or 
maybe  crash  if  the  pattern  of  numbers  makes  it  try  to  do 
something  it  can't  or  shouldn't. 

The  computer  can't  just  stuff  the  numbers  anywhere  —  this 
would  cause  chaos  if  it  didn't  know  where  to  look  next.  So 
there  is  a  method  used  whereby  everything  can  be  neatly 
organised. 

Imagine  you  wanted  to  display  a  message  in  public  and  you 
had  the  words  written  on  little  placards  with  hooks  on,  ready 
for  all  occurrences,  so  that  you  could  display  any  message 
simply  by  hanging  up  the  right  set  of  placards.  For  example,  if 
we  wanted  to  display  this  message: 

"BEWARE  ROAD  WORKS"  we  need  these  placards: 


1  1 


BEWARE 

9 

RO  AO 

and 

WORKS 

We  need  a  board  on  which  to  hang  up  these  words.  If  we 
start  with  the  first  hook  by  hanging  the  first  placard  there  and 
proceed  along  the  board,  we  end  up  with  a  fairly  neat  sign: 


i 


beware 


<1  v 

ROAD  I  I  WORKS  I 
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The  pegs  on  the  board  tell  us  where  each  word  is  hung.  This 
makes  a  good  comparison  with  your  computer's  memory. 
There  are  651536  places  where  we  can  "hang"  numbers  on 
the  Spectrum,  but  these  are  split  up  for  various  uses,  and  you 
or  the  computer  can  do  various  things  with  these.  These 
"pegs"  or  locations  or  whatever  you  want  to  call  them  are 
actually  referred  to  as  addresses  (the  home  of  each  number  if 
you  like).  However,  if  the  Spectrum  has  a  number  it  wants  to 
store,  it  can't  just  stuff  it  anywhere  because  it  might  upset 
what's  already  there. 

One  way  you've  already  used  POKE  is  to  create  user-defined 
graphics.  These  are  POKEd  into  addresses  starting  at  32600 
on  a  16K  Spectrum. 

If  we  look  at  the  first  peg  (PEEK  1 )  we  find  the  word  BEWARE 
there.  If  we  look  at  the  second  peg  (PEEK  2)  we  find  the  word 
ROAD  there,  and  so  on.  Can  you  see  the  analogy?  Remember 
that  the  computer  would  use  numbers  rather  than  words,  but 
the  idea  is  still  the  same.  Similarly,  we  can  change  the  words 
on  the  pegs  quite  easily  by  using  POKE  to  stuff  a  new  number 
where  another  number  used  to  be.  We  could  do  something 
like  POKE  peg  2,  BUILDING  which  would  put  the  word 
BUILDING  on  the  second  peg  of  the  notice,  and  so  change  its 
entire  meaning.  The  great  secret  about  PEEK  and  POKE  is  not 
what  they  do  —  it's  how  to  use  them.  It's  all  very  well  finding 
what  number  is  in  which  address  or  stuffing  a  new  number 
into  a  particular  address,  but  how  can  you  make  use  of  this  in 
a  program  and  how  do  you  know  where  to  PEEK  and  POKE. 
The  answer  is,  mainly  by  experience  and  reading  through 
other  people's  programs,  although  you  will  find  that  as  your 
knowledge  of  computers  increases,  you  will  find  you  think  up 
new  ways  to  use  PEEK  and  POKE.  Before  we  look  at 
examples,  a  brief  reminder  of  how  to  write/type  PEEK  & 
POKE  statements. 

PEEK  m.  m  is  the  address  which  we're  looking  into,  m  is  a 
number  from  0  to  65560  or  m  can  be  the  result  of  a 
calculation.  POKE  m,n.  m  is  an  address  to  which  the  new 
number  is  to  be  placed,  as  with  PEEK.  It  is  written  between 
the  word  POKE  and  the  comma.  The  number  after  the 
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comma,  n,  is  the  number  to  be  placed  in  address  m,  and  can 
be  a  number  from  0  to  255  or  the  result  of  a  calculation 
provided  it  is  a  number  from  0  to  255.  You  can  actually  make 
n  a  negative  value  from  0  to  -255,  but  this  is  rarely  done 
and  is  not  very  useful  anyway. 

Let  us  now  look  at  some  examples  of  PEEK  and  POKE  in  use. 
(1 )  REM  statements 

Many  programs  rely  on  information  held  in  REM  statements 
in  the  first  line  of  a  BASIC  program  on  the  computer.  This  is 
because  it  is  easy  to  access  and  is  very  economical  on 
memory.  The  important  point  is  that  the  address  of  the  first 
character  after  the  word  REM  in  the  first  line  of  a  program  is 
23760.  So  if  you  had  the  program: 

1  REM  ABCDEF 

2  PRINT  PEEK  23760 

it  would  print  the  number  65  on  the  screen.  This  is  the  CODE 
of  the  character  A,  so  address  23760  has  the  value  of  65. 

You  can  easily  change  this  value  by  POKEing  a  new  value  into 
23760.  For  example,  to  change  A  to  a  Z,  look  up  the  CODE 
of  Z,  which  is  90,  and  POKE  this  into  23760: 

POKE  23760,  90 

Or  it  could  have  been  written  as  POKE  23760,  CODE  "Z" 
which  works  just  as  well.  The  next  address,  23761  stores  the 
B,  23762  stores  the  C  and  so  on. 

The  technique  of  PEEKing/POKEing  into  REM  statements 
was  of  great  importance  for  the  storage  of  machine  code 
programs  on  the  ZX81, 

Although  it  can  still  be  used,  the  manual  (in  the  section  called 
'Using  Machine  Code')  explains  a  way  of  reserving  memory, 
and  POKEing  machine  code  into  the  reserved  area. 
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(2)  Using  the  timer 

The  timer  is  contained  in  addresses  23672,  23673  and  23674 
and  it  simply  counts  the  number  of  frames  sent  to  the  T,V, 
You  can  PEEK  and  POKE  into  these  addresses. 

Reset  the  counter  to  zero  by  these  statements: 

POKE  23674,  255 
POKE  23673,  255 
POKE  23672,  255 

And  to  read  its  value,  use  this  expression: 

65536*  PEEK  23674  +  PEEK  23672  +  256*  PEEK  23673 

This  gives  us  an  answer  in  frames,  and  since  50  frames  are 
sent  to  the  T.V.  every  second  (60  in  the  US),  we  need  to 
divide  by  50  (or  60)  to  get  an  answer  in  seconds,  like  this: 

LETTIME  =  (65536*PEEK23674  +  PEEK23672  +  256*PEEK 
236731/50 

Here  is  a  program  to  provide  a  stopwatch: 

5  POKE  235 74,255 
10  POKE  23673,255 
B0  POKE  23672,255 

30  LET  t  i  ME  ~  23674-  + 

PEEK  23672 +256*PEEK  23573.*  ^S0 

40  PRINT  PT  1±,14;XNF  ft iM£*10 
J  .-'10;  i# 

50  GO  TO  30 


The  INT  In  line  40  is  added  to  prevent  fractions  of  a  second 
less  than  a  tenth  being  printed.  This  stopwatch  keeps  fairly 
accurate  time  because  the  frame  counter  is  controlled  by 
special  hardware,  so  unless  the  program  deliberately  forces  it 
to  do  otherwise  it  is  independent  of  how  fast  the  program 
runs  and  keeps  time  fairly  well.  The  counting  range  of  the 
frame  counter  allows  timing  for  nearly  four  days.  If  you  want 
a  readout  in  minutes  and  seconds  then  use  this  routine: 
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5  POKE  £3674-,  £50 
10  POKE  23673 >255 
20  POKE  £3672 >255 

30  LET  ti«e=  f 65536 *PEEK  23674-  + 
PEEK  23672  +256 ^ PEEK  £3673.5  /SB 

4-0  PR  INT  RT  XI,  IS  i  INT  i  t  i  j»  e  y  60 
INT  (t i»e-INT  < t i #e/60J *6© 

^  »  It  u 

'  50  GO  TO  30 


Business  Uses 

The  computer  can  be  used  for  a  number  of  small  business 
applications.  A  wide  variety  of  programs  are  commercially 
available  to  exploit  the  large  potential  of  the  computer.  In  this 
section,  we'll  look  at  some  simple  practical  application 
programs  for  your  Sinclair  machine. 


The  first  one  is  for  money  manipulation.  James  Walsh  has 
written  a  program  to  calculate  compound  interest.  The  user 
prompts  are  clear,  and  easy  to  follow. 


90  LET  fli  =  ”Ye a r  Interest 

Total" 

10©  input  "Number  of  years?  "  ;Y 
110  PRINT  "Compound  interest" 
120  PRINT  '""Over  " ; V ; "  years" 
130  INPUT  "flsount?  " ; ft;  LET  T=ft 
14-0  PRINT  •  ■“Principal  is  *“;ft 
150  impu T  "interest  per  year?  " 
;  in 

160  CLS  ;  PRINT  RT  1.®; 

173  FOR  N-l  TO  Y 
190  POKE  23692,-1 
200  GO  5UB  34.® 

£10  PRINT  NjTRB  Sj"*";lNT  fU+.5 
>  ;  TRB  19;'**";  INT  <T+-5.> 

26®  NEXT  N 

270  PRINT  '  “TOta  l  =  3";  INT  lT  +  *5> 
290  PRINT  "'interests  “;IN;“K" 
310  print  '“original  amount®*"; 
a 

320  PRINT  fiT  0,0; ft* 

r*  •=-¥-  rt  r~. 

34-0  LET  U  =  l+  {  IN7100)  *T 
350  LET  T=  f  IN.,'1®0.»  *T+T 
360  RETURN 
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Word  processing 

This  word  processor  program  will  make  text  neat  and  tidy 
before  you  print  it  —  and  gives  you  the  chance  to  cor  mu! 
mistakes,  using  a  free-moving  cursor.  You  enter  your  text  (up 
to  17  lines  deep}  as  a  single  string,  X$,  When  you  have  thi 
text  in,  you  press  ENTER,  and  the  computer  will  shuffle  thi 
words  to  ensure  that  none  of  them  are  split  at  the  and  of  • 
line. 


A  menu  appears  with  three  options:  1  —  correct  the  text;  2  — 
LPRINT  the  text;  and  3  —  to  start  again.  If  you  decide  you 
wish  to  correct  the  text,  it  will  reappear  on  the  screen,  with 
the  words  ''ENTER  1  TO  RETURN  TO  MENU"  above  it.  YOU 
use  the  5,  6,  7  and  8  keys  to  move  the  cursor  in  the  direction 
indicated  by  the  arrows  on  those  keys,  and  the  cursor  move# 
along  the  line  of  text,  putting  a  black  blob  over  the  lettor  It  li 
passing  over.  Once  you  find  a  letter  which  is  wrong  you  preei 
"A"  and  the  words  ENTER  LETTER  appear  at  the  bottom  of 
the  screen.  You  enter  your  letter,  and  press  ENTER,  and  thft 
incorrect  letter  will  be  altered  to  the  letter  you've  chosen* 
Pressing  "1"  at  any  time  will  return  you  from  the  'correction 
phase'  to  the  original  menu,  and  from  this  menu  you  can 
choose  "2"  to  LPRINT  the  text. 


After  LPRINTing,  you  are  shown  a  further  menu,  which 
allows  you  to  run  the  whole  program  again  from  scratoh, 
LPRINT  again,  or  to  terminate  the  run. 


1©  PEM  UORD  PROCESSOR 
2©  PR TNT  “ENTER  TEXT" 

30  INPUT  X$ 

32  LET  X$«X$  +  a‘ 

35  CLS 

43  GO  SUB  10O0 

45  GO  SUB  100© 

53  PRINT  X$ 

70  PRINT  -  ‘‘ENTER  1  TO  CORRECT 
TEXT,  2  TO  SPRINT,  3  TO  S 

TRRT  RGRIN“ 

60  INPUT  © 

100  IF  ©*=3  THEN  RUN 

11©  IF  0  =  2  THEN  GO  TO  4000 

12©  IF  G  =  X  THEN  GO  TO  200© 

13©  GO  TO  ©0 
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i  000  REM  STOPS  WORDS  SPL  ITT  ING 
1010  LET  N  =  1 
1020  GO  SUB  11S0 
1030  LET  N-N+33 

134.0  IF  N  >  =LEN  XS  THEN  RETURN 
104-5  REM  SINGLE  SPACE  IN 
NEXT  LINE 

1050  IP  X*IN)="  *'  THEN  GO  TO  US 

O 

1065  REM  SINGLE  SPACE  IN 
NEXT  LINE 

1070  IP  X$  f N J  ="  "  THEN  GO  TO  103 

0 

10SO  LET  U-0 
1090  GO  SUB  1130 
1100  LET  U=U+i 
1105  REM  SINGLE  SPACE  IN 
NEXT  LINE 

1110  IP  X*(NJ>*'  "  THEN  60  TO  109 

0 

1120  FOR  M-N  TO  N  +  U-l 
1125  REM  SINGLE  SPACE  IN 
NEXT  1IWF 

1130  LET  X*=X*fl  TO  N)  +'■  "+X*(N  + 

1  TO  i 

1140  NEXT  N 
1150  GO  TO  1030 

1160  LET  Xf=X$  1 1  TO  N-U+XJtfN  +  1 
TO  > 

1170  GO  TO  1020 
11S0  LET  N=N-1 
1190  RETURN 

2000  REM  *  CORRECTIONS  * 

2010  CLS 

2020  PRINT  "ENTER  1  TO  RETURN  TO 
MENU" 

2030  LET  ftsl;  LET  L  =LEM  X$ 

2032  LET  Z  $=A$ { 1 } 

2035  PRINT  AT  2,0; X* 

2037  LET  X$ {A) =2$ 

205©  IP  INKEY$s"S'‘  AND  A-tL  THEN 
LET  A=A^-I 

2055  ip  XNKEY*="S"  AND  fi:L+32  TH 
EN  LET  R=R +32 

2060  IP  INKEY4  =‘*S"  AND  A>1  THEN 
LET  A  =A  —  1 

2065  IP  INKEVS  =  "  7'*  AND  A  >32  THEN 
LET  A— A~32 

2070  IP  INKEV$="1"  THEN  GO  TO  70 
2060  IP  INKEY»  =  **B”  THEN  60  SUB  3 
000 

2090  PRINT  AT  1,0; A;"  ";X*tA>;" 

21©0  LET  Z4=X*fA> 

2110  LET  X*<m  a*#1 
2120  GO  TO  2035 

3000  INPUT  INK  2;  PLASH  1;  SRIGH 
T  1;  "  Enter  letter  “;H$ 

3010  LET  X*  f A>  =HS 
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PRINT  PGP 
RUN  RGRXN 


3&3.B  RETURN 

L PRINT  X* 

4010  PRINT  “ENTER  1  TO 

IN” 

4020  PRINT  TRB  5;  “2  TO 

4-030  PRINT  TRB  Si  '*3  TO  STOP" 
4.04-0  INPUT  U 

4050  IP  U«1  THEN  GO  TO  4300 
4050  IP  U=2  THEM  RUN 
4070  IP  U=3  THEM  STOP 
4-030  GO  TO  4040 


The  final  program  in  this  section  is  designed  to  place  entries 
and  page  references  in  alphabetical  order  and  will  enable 
indexes  to  be  constructed  (e.g.  to  books  or  articles  in 
magazines)  or  can  be  easily  adapted  to  accommodate  stock 
lists  or  levels. 


The  program  is  in  three  parts.  The  first  (to  line  100)  accepts 
the  entries,  the  second  (lines  200  to  300)  sorts  them  and 
the  third  (lines  310  to  530)  displays  the  data. 

The  program  asks  you  to  enter  a  title  (T$)  and  its  author  <N$) 
and  then  enter  the  subjects  and  pages,  one  by  one,  entering 
an  "E"  to  end  the  entry  process.  The  program  will  accept  up 
to  400  entries  (line  20).  This  runs  on  a  16K  Spectrum.  You 
can  have  2000  entries  or  more  on  a  48 K  machine.  At  the 
end,  you  can  choose  to  have  them  printed  to  the  screen  or  to 
the  printer. 

Here  is  a  sample  run: 


BRAIN  GftHES 

FISHER  R  B 

CONSCIOUSNESS  -  IBS 
INTEL L IGENCE  -  7 
LEARNING  -  114 
MACHINERY  -  32 
MEMORY  -  92 
PERCEPTION  -  137 
PERSONAL ITY  -  9 
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30 

4-0 

N$ 

50 

60 


REM  Book  index 
DIM  R*C400,16J  _  rt  ^ 

INPUT  "ENTER  TITLc  £.T$ 
INPUT  "ENTER  BUTHOR ' 6  NmME 


II  SaM-SeS?^ ORD  «Ng  PBGE 
NUMBER  _  ^  ENTER  “E*  TO  END  EfTT 

^  Jf 0  SPACES  IN  NEXT  LINE 

50  IF  B*CG>="E 
THEN  GO  TO  200 
90  PRINT  R$ V  G> 

100  NEXT  G 
200  CLS 

210  PRINT  "STAND  BY,  SORTING" 

220  FOR  B  —  1  TO  G-l 

230  FOR  C -B  + 1  TO  G-l 

24.0  IF  A$  (B)  {=fl*  fC.l  THEN  GO  TO 


100 

200 

210 

220 

230 

24-0 

260 

250 

260 

270 

230 

290 

300 

310 

ST1' 

320 


LET  D *  =fl$ (B) 

LET  A$  VS. i  =A$  VC. 5. 
LET  B$  VCJ  =D* 

NEXT  C- 
NEXT  B 

PRINT  ' ' "READY" 
PRINT  "ENTER  1  TO 


L PRINT 


320  PRINT  '"ENTER 
SCREEN" 

330  IF  INKEY*="2" 
TD  4-4-0 

34-0  IF  INKEY»  =  "1“ 

350  GO  TO  330 
360  L PRINT  T  $ 

370  L PRINT 
380  L PRINT  N$ 

390  LPRINT 

4-00  FOR  B  =  1  TO  G-. 

4-10  LPRINT  B$VB> 

420  NEXT  R 

430  STOP 

440  PRINT  'T* 

450  PRINT  'N* 

460  PRINT 


THEN 

THEN 


TO  36 


500  FOR  B  =  1  TO  G-l 
520  PRINT  B$  CB) 

530  NEXT  B 
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Improving  your 
programs 

Yourve  probably  gone  through  several  stages  as  you  develop 
your  programming  skills.  After  the  first,  brief  struggle  with 
BASIC,  you  suddenly  discovered  you  could,  after  a  fashion, 
write  programs  which  ran.  They  may  have  looked  pretty 
convoluted  when  you  looked  at  their  listings,  and  friends  may 
have  needed  a  detailed  explanation  from  you  before  they 
knew  what  to  do  when  running  the  programs,  but  at  least 
they  worked. 

There  comes  a  stage  when  you  decide  you're  going  to  have 
to  do  better  than  that.  But  while  you  may  be  vaguely 
dissatisfied  with  your  programs,  you  may  not  have  much  idea 
of  how  to  go  about  becoming  a  better  programmer.  Here  are 
a  few  guidelines  which  may  help. 

First,  have  a  look  at  a  printout  of  your  listing.  Programs  linked 
by  REM  statements  look  better,  and  are  easier  to  understand 
when  you  return  to  them  after  a  break.  Of  course,  shortage  of 
memory  may  preclude  the  luxury  of  REM  statements,  but  if 
you  have  the  memory,  you  should  include  them.  REM 
statements  filled  just  with  a  line  of  asterisks  can  prove  quite 
useful  in  separating  each  major  section  of  the  program. 
Examine  any  unconditional  GOTO  critically.  Too  many 
GOTOs  leapfrogging  over  other  parts  of  the  program  show  a 
lack  of  directed  thinking,  make  programs  run  more  slowly, 
and  can  make  them  almost  impossible  to  decipher. 

It  is  very  good  programming  practice,  to  have  each  of  the 
main  sections  of  the  program  (like  the  one  which  assigns  the 
variables  at  the  beginning  of  a  run,  the  one  which  prints  out 
the  board,  the  one  which  works  out  who  has  won,  and  so  on) 
in  separate  subroutines.  The  beginning  of  your  program 
could  well  look  like  this: 

10  REM  *NAME  OF  PROGRAM* 

20  REM  ASSIGN  VARIABLES 
30  GOSUB  9000 
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40  REM  PRINT  BOARD 
50  GOSUB  8000 
60  REM  HUMANS  MOVE 
70  GOSUB  7000 
80  REM  COMPUTERS  MOVE 
90  GOSUB  6000 
100  REM  CHECK  IF  GAME  OVER 
110  GOSUB  5000 
120  GOTO  50 


As  you  can  see,  this  ensures  that  the  program  actually  cycles 
through  a  continuous  loop  over  and  over  again,  until  the 
program  terminates  within  the  "CHECK  IF  GAME  OVER" 
subroutine.  You  can  actually  write  a  series  of  lines  like  these 
before  you  start  writing  anything  else,  and  even  before  you 
know  how  you  are  going  to  actually  perform  some  of  the 
tasks  within  the  subroutine. 

Then  you  can  write  the  program  module  by  module,  making 
sure  that  each  module  works  before  going  onto  the  next.  It  is 
relatively  easy  to  debug  a  program  like  this,  and  far  simpler  to 
keep  an  image  of  'where  everything  is'  when  you  do  this, 
than  when  you  just  allow  a  program  to,  more  or  less,  write 
itself. 

The  listing  should  be,  then,  as  transparent  as  you  can  make 
it,  both  for  your  own  present  debugging,  and  for  future 
understanding  of  what  bit  carries  out  what  task.  The  output 
of  the  program  should  also  look  good.  Again,  if  memory  is 
not  a  problem,  make  sure  the  display  is  clear  and  uncluttered. 
Use  blank  PRINT  lines  to  space  it  out,  use  rules  of  graphic 
symbols  or  whatever  to  break  the  screen  up  into  logical 
sections  and  so  on.  Once  you  have  a  program  working 
satisfactorily,  it  is  worth  spending  extra  time  on  the 
subroutine  which  controls  the  display.  Here  you'll  appreciate 
again  the  advantage  of  having  all  the  display  handling  in  one 
subroutine,  as  it  will  be  easy  to  know  where  to  go  to  enhance 
the  display. 

Of  course,  as  we  live  in  a  far  from  ideal  world,  it  is  unlikely 
that  every  single  display  command  can  be  contained  within 
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one  subroutine,  but  if  you  aim  towards  that  end,  it  will  make 
subsequent  working  upon  the  program  much  easier  than  it 
might  be  otherwise. 

The  'structured'  approach  outlined  also  helps  you  realise 
another  aim  of  a  good  program  —  to  do  what  you  expected  it 
to,  every  time  you  run  it.  You  should  write  a  program  so  that, 
even  if  you  are  not  present  when  a  friend  decides  to  run  ft  for 
the  first  time,  it  performs  as  expected.  This  means  not  only, 
of  course,  that  it  is  properly  debugged,  but  that  the 
instructions  (which  can  be  contained  within  the  ASSIGN 
VARIABLES  subroutine)  are  clear  and  complete. 

The  user  prompts  should  be  clear,  so  the  human  operator 
knows  whether  to  enter  a  number,  a  series  of  numbers,  a 
word,  a  date,  a  mixture  of  letters  and  numbers,  and  so  on. 
The  program  has  to  assume  that  the  operator  is  a  complete 
fool,  and  that  no  matter  how  clearly  the  instructions  and/or 
user  prompts  are  stated,  he  or  she  will  attempt  to  do  things 
the  wrong  way.  A  classic  example  of  this  is  the  entering  of 
dates.  'Mug  traps',  as  the  routines  to  reject  erroneous  input 
from  the  operator  are  called,  should  be  set  up  to  reject  a  date 
being  entered  in  a  form  which  the  computer  cannot 
understand  (such  as  the  month  before  the  day)  or  which  is 
clearly  wrong  (such  as  entering  the  32nd  of  February).  You 
should  ensure  that,  no  matter  what  the  operator  does,  the 
program  does  not  crash  or  otherwise  misbehave.  This  can 
happen  if  the  program  was  expecting  a  numerical  input,  and 
the  operator  tried  to  enter  a  letter  or  a  word,  or  hit  ENTER 
without  entering  anything  at  all.  You  can  get  around  this  by 
always  allowing  a  string  input,  going  back  for  another  input  if 
the  empty  string  is  entered,  and  taking  the  VAL  or  CODE  of 
the  input  to  turn  it  into  numerical  form. 

Documentation  is  an  area  of  programming  which  is  often 
neglected.  It  is  virtually  essential  for  a  program  which  is 
intended  for  publication,  and  most  advisable  for  long 
programs  which  you've  written  for  yourself.  At  the  least,  the 
documentation  should  include  a  list  of  variables,  an 
explanation  of  the  program  structure  (which  should  be  easy 
to  do  if  you've  followed  the  'modular'  approach  advised),  and 
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brief  instructions,  especially  if  the  program  itself  does  not 
contain  instructions.  A  sample  run  showing  the  kind  of 
inputs,  and  the  nature  and  layout  of  the  program  outputs,  is 
also  useful. 

Your  program  should  run  as  quickly  as  possible.  Every  time 
there  is  a  subroutine  or  GOTO  call,  the  computer  must  search 
through  the  whole  program,  line  by  line,  to  find  the  specified 
line  number,  so  placing  often  used  subroutines  near  the 
beginning  of  the  program  will  speed  them  up  fractionally. 
That  is  why  the  instructions  are  often  placed  right  at  the  end. 
You  do  not  want  the  computer  to  have  to  wade  through  the 
initialisation  and  instruction  lines  every  time  it  has  been  told  to 
GOTO  or  GOSUB  looking  for  the  destination,  or  return  line 
number. 

Define  often-used  variables  first,  so  they  will  occupy  the  early 
slots  in  the  variables  store.  The  computer  will  search  the  store 
only  until  it  finds  the  variable  it  wants,  so  there  is  no  point  in 
getting  it  to  look  at  more  entries  than  absolutely  necessary. 

Finally,  and  this  is  by  far  the  best  way  to  test  a  program 
you've  written,  call  in  a  friend  and  sit  him  or  her  in  front  of  the 
TV,  and  tell  them  to  press  RUN,  without  you  saying  anything, 
and  just  sit  back  and  watch.  If  there  is  any  hesitation,  or  the 
program  hiccups,  you  have  more  work  to  do. 

In  summary  then: 

•  Use  REM  statements 

•  Make  program  listings  neat  and  logical 

•  Use  structured  programming  techniques,  controlling  the 
program  through  a  loop  of  subroutine  calls 

•  Examine  unconditional  GOTO  commands  critically 

•  Make  output  display  attractive  and  clear 

•  Ensure  all  user  prompts  are  clear 

•  Add  'mugtraps'  on  all  user  input 

•  Document  your  programs,  even  if  you  just  make  a  list  of 
variables 
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•  Make  your  program  run  as  quickly  as  possible 

•  Test  programs  by  allowing  someone  unfamiliar  with  the 
program  to  run  it 


Programs,  programs, 
programs 


Finally  in  this  book  are  some  programs  you  may  atifoy 
entering  and  running. 


1  REM  Greyhound 

2  rem  ©  Go  lit  lay, -Marine  t  i  I3B2 
5  RANDOMIZE 

7  GO  SUE  200 
10  FOR  X=i  TO  22 

2©  PRINT  INK  4-;TRB  SO;",*" 

3©  NEXT  X 

35  PRINT  RT  0,t>j  "YOU  bet  on  nil 
®  be  r  ;  w 
4.0  DIM  a 

50  FOR  X  =1  TO  2 

60  PRINT  RT  '■ 

70  LET  a  tXJ  -a  Vx>  +RND*S 
80  PRINT  RT  2*x,a  (X.1  J  INK  X  /8; 


85  BEEP  ,S1,3JX 

90  IF  a  lx)  >30  THEM  GO  TO  115 
100  NEXT  x 
110  GO  TO  SO 

115  FOR  n=l  TO  50  STEP  2 
120  PRINT  RT  18.,  6.;  INK  RND*7;x; 
”  is  the  winner!" 

123  BEEP  .02,9 

125  IF  » =X  THEN  PRINT  RT  20,3; 
INK  rnd*7;  "find  you  are  the  iiinne 
r  too  !  !  '* 


130  FLASH  AND 
14.0  NEXT  Q 
14-5  FLASH  0 
150  RUN 
200  BORDER  0 

205  PRINT  AT  3,1;  INK  2;  "We t COM 
e  to  the  qreuhoitnd  track" 

210  PRINT  RT  5,6;  INK  4.;  "There 
are  nine  dons." 

220  input  {  INK  2: "Place  your  b 
e  t  for  a  win  “ > ; w 


203 


23®  IF  w<X  OR  la  >2  THEN  GO  TO  22 

0 

23S  BORDER  2 
24-®  CLS  r  RETURN 


IQ  REM  Star  bouncer 
15  REM  ©  Hartnell,  1932 
2©  BORDER  © 

30  LET  a  —  1 ;  LET  b-X:  C -RND 

*20;  LET  d=RND^r2® 

4Q  PRINT  RT  cJd;V,‘;fiT  C,d;  IN 
K  RND*7;”*“ 

50  IF  C+b  >21  OR  C  +  h  <  ~1  THEN  LE 
T  b “  —  b :  BEEP  0.2. -RHD^IS 

60  IF  d  >31  OR  d  4* a  ;  ©  OR  RND  >  . 
96  THEN  LET  a  - -3 :  BEEP  ©.1^RND*2 

7©  LET  C  =^c  4b:  LET  d  =d +3 
30  GO  TO  4-® 


Colourthello 

Challenge  your  Spectrum  to  a  game  of  Reversi  with  this 
program  COLOURTHELLO,  written  by  Graham  Charlton. 
COLOURTHELLO  is  intended  to  highlight  the  sound  and 
colour  potential  of  the  Spectrum.  You'll  see,  when  you  run 
the  program,  how  effective  the  Spectrum's  features  can  be. 
You  move  by  entering  the  number  down  the  side,  followed  by 
the  number  across  the  top  or  bottom,  as  a  single,  two-digit 
number.  For  example,  if  you  wanted  to  place  a  piece  where 
the  bottom  "0"  is  on  the  board,  you'd  enter  64. 


X  REM  _ Colourthello _ 

S  PRINT  PT  0,12;  INK  I 

NK  INK  B;  44  i  INK  3 ;  “  o 

INK  4;  **u\;  INK  S;"r\;  INK 
INK  INK  INK  3;  "  l  M 

INK  4;  "  l  4\;  INK  2;  “O" 

1©  DIM  3(1©,  IB);  FOR  b  =  l  TO  10 
FOP  C—l  TO  1© 

20  BEEP  .Ql7b*c^lB 
4®  IF  b  <  >  1  RND  COl  RND  b  <  >  1® 
RND  C  <  >  10  THEN  LET  a  i  b  ,  C  )  aCODE  " 

H 
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50  NEXT  C;  NEXT  fc:  i_ET  p=0:  LE 
T  r  =© 

7©  LET  a  (5,53  =CODE  "x":  LET  a< 
5,5)  -CODE  **  X  **  :  LET  3(5,5)  *CODE  ’’ 
O  :  LET  a  (5.65  =CODE  ”o‘'v 
12©  INPUT  \  INK  2,  "Do  you  want 
to  go  First?  ” )  q$ 

125  CLS  :  GO  SUE  30©© 

1ST  PRINT  AT  3.12:  INK  2:”C‘\;  I 
NK  1 ;  ”o  ** ;  INK  S;  **  L  ;  INK 
INK  4- ;  “ u  "  ;  INK  5  :  **  r r  INK 
ink  ink  S;"e'\;  INK 

:  INK  4-.:  **  l  INK  2;”o” 

13©  IF  CODE  q$<>CODE  "n"  AND  CO 
DE  qf <  > CODE  “N”  THEN  GO  TO  2000 
1003  PRINT  INK  2;  AT  1 S 1 6 "SEBSE 

^10  LET  £  =  CODE  '’O'":  LET  t  =CODE 
“X “ :  LET  h=0 

104.©  FOR  3=2  TO  9:  FOR  b  =2  TO  9 
1050  IF  a  (  a  .  fc.v  <  >  CODE  *’ .  **  THEN  GO 
TO  1320 

107©  LET  FOR  c  = -1  TO  1:  FOR 

d=-l  TO  1:  LET  K  =S :  LET  f *a :  LE 
T  g  =b 

1130  IF  a  (f+C,9+d)  <>5  THEN  GO  TO 
1 1  ©  0 

114©  LET  R=R+1:  LET  f=f+C:  LET  9 
=q+d:  GO  TO  1130 

US0  IF  a  t  f +C,9+d*  <  >t  THEN  GO  TO 
1200 

119©  LET  q=q+K 
120©  NEXT  d 
1210  NEXT  c 

122©  IF  f =2  OR  f =9  OR  g =2  OR  g  =9 
THEN  LET  a  =a 

123©  IF  f =3  OR  f=S  OR  Q =3  OR  g =S 

THEN  LET  q=q/2 

I2S0  IF  (  f -Z  OR  f ~S 3  BNP  (g  =3  OR 
q=8)  OR  ( f =3  OR  f  =31  fiNP  (a =2  O 
R*q=9)  THEN  LET  q  =q  ,'2 
123©  IF  q  < b  OR  q-B  OR  (RND>  .3  AN 
D  q*h>  THEN  GO  TO  132© 

129©  LET  h=q:  LET  fli  =3 :  LET  n  =b 
1320  NEXT  b 
133©  NEXT  a 

134.0  IF  K  =0  RND  f  =0  THEN  GO  TO  5 
©0© 

135©  IF  h =©  THEN  GO  TO  1370 

13B©  GO  SUB  4.000 

1370  GO  SUB  3000  _ 

2000  PRINT  INK  l.:RT  10/ 15/  “111— 

EB” 

201©  LET  ssCODE  “X" :  LET  t  =COPE 
•O” 

203©  INPUT  r 

204.0  IF  r  =0  THEN  GO  TO  2090 
2350  IF  r  <11  OR  r >33  THEN  GO  TO 
2030 

20SB  LET  f»=INT  (r/10)  tl:  LET  n=r 
-10iINT  (r/10) +1 
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£©<30  GO  SUB  4-000 

£09©  GO  SUB  3000:  GO  TO  1000 
3000  PRINT  RT  5,®j :  BEEP  . £5 , RND 
*5 

•3010  LET  C  =3 :  LET  h  =0 
303©  PRINT  INK  4j 

304.0  FOR  b-£  TO  9:  PRINT  INK  4-/  b 
-I; 

30B0  FOR  d=2  TO  9 

3370  IF  a  tb.d)  =CODE  "X"  THEN  PRI 

NT  INK  2.1  "X"} 

3075  IF  a (  b  ,  d  ) =CODE  “«J“  THEN  PRI 

nt  ink  x;"o"; 

3077  IF  a  (b,d)=CODE  **  .  “  THEN  PRI 
NT  INK  5;".*’; 

303©  IF  atb..dJ=CODE  *'X,‘  THEN  LET 

c  =  c  +  1 

3090  IF  a  (  b  ^  d =CODE  “o“  THEN  LET 

h  =h  +1 

3100  NEXT  d 

3110  PRINT  INK  4-;  b-1 

D 120  NEXT  b 

3130  PRINT  INK  4-;  “■Efe«asfr«=ar* 

3150  PRINT  ''  INK  3;  "  I  have  *'j  I 
NK  £.:  c,  INK  3.;  “  You  have  IN 

jf  *  ••  ^ 

3 170  RETURH 

4330  FOR  C-- 1  TO  1 

4010  FOR  d~-l  TO  1 

4020  L.ET  f  =  :  LET  9  —  n 

4040  IF  a  (f+CiS+di  OS  THEN  GO  TO 
4030 

4-050  LET  fmf+c:  LET  g  =3  +  d  :  GO  TO 

4-040 

4.0S0  IF  a ( F+C , S+dl O t  THEN  GO  TO 
414© 

4-09©  LET  aff.g)=t;  IF  M=rf  AND  n  = 

3  THEN  GO  TO  4-14J3 

4110  LET  f=rf-C;  LET  g=«*d:  GO  TO 

4090 

414©  NEXT  d:  NEXT  C:  RETURN 
5000  IF  C>h  THEN  PRINT  ”1  won.  ’* 


5010  IF  h>C  THEN  PRINT  “YOU  won.. 
503©'  ©  Char  L  ton  1932 
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Co  lou  r  the  L Lo 


X  have 


You  have  4- 


Life 

Here  are  two  versions  of  John  Conway's  game  of  LIFE,  the 
game  which  simulates  the  birth,  growth  and  death  of  a  cell 
colony.  The  cells  evolve  according  to  the  following  rules-. 


•  Each  cell  on  the  grid  has  eight  neighbours 

•  Every  cell  with  two  or  three  neighbours  survives  to  the  next 
generation 

•  If  there  are  three,  and  only  three,  neighbouring  cells,  a  new 
cell  is  born 

•  Any  cell  with  four  or  more  neighbours  dies  from  over 
population 

5  REM  LIFE  -  ©  BNNE  MftRSHBLL 
I®  DIM  ft f 145):  DIM  LV145):  DIM 

£  fS) 

15  LET  G=0 
2®  FOR  T=1  TD  O 

2S  REftD  Z ;  LET  E  (T)  =Z :  NEXT  T 

3©  LET  OPCODE  "  D  "*  :  LET  Z=12B 

35  BORDER  1:  PRPER  0:  CL 5 

40  FOR  B=1  TO  12 

50  FOR  D  =  1  TO  12 

S©  LET  ft  CB+1®*D)  =Z 

?©  IF  RND > » 45  THEN  LET  ftiB+10* 

eS  LET  L  + 
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30  NEXT  D:  NEXT  B 
ISO  LET  G=G+1 
130  FOR  U=1  TO  12 
130  FOR  B  =  1  TO  12 
14.0  LET  F=U+10*B 
130  IF  0=1  THEN  GO  TO  230 
130  LET  H=0 
200  FOR  T=1  TO  8 

210  IF  ft HF+E VTJ +1) =C  THEN  LET  H 

=H  +  1 

220  NEXT  T 

230  IF  ft  (FJ  =C  AMD  HO 3  AND  H  <  >  2 
THEM  LET  L  VF.\  =2 

235  IF  ft  tFJ  =2  AND  H=3  THEN  LET 
L  IF)  =C 

240  NEXT  B:  BORDER  RND*7;  NEXT 
"245  BORDER  1 

250  FOR  H=ll  TO  144:  LET  ft (HA =L 
CM> :  BEEP  -0©5,HV3;  NEXT  H 
255  PRINT  RT  5,0; 

250  FOR  U=1  TO  12:  PRINT  TRB  4; 
270  FOR  B=1  TO  12:  LET  F=U+1S*B 
230  PRINT  INK  6;  CHR*  ft  iF.>  ;  ”  : 

NEXT  B:  PRINT  ;  NEXT  U 
255  PRINT  ftT  3, 10;  PAPER  2;  INK 
"Generation  “;G:  BEEP  .3,50 
230  GO  TO  100 

300  DATA  11,10,9,1,-1, -9,-10,-l 

1 

10  REM  Conway's  Colony 
IS  REN  ©  Hartnell,  1952 
20  GO  SUB  90 
30  LET  print  co lony -200  • 

40  LET  generation  update*320 
45  REM  **************** 

5©  GO  sub  print  colony 
50  GO  SUB  generation  update 
7©  GO  TO  5© 

50  REM  **************£*** 

90  REM  initialise 
100  CL  3 

110  LET  re l ls=® 

120  DIM  a(li,llt:  DIM  bill, 134 
130  FOR  X  =2  T0  10:  FOR  y  *S»  TO  1 

0 

135  BORDER  RND*7 

140  IF  RND > » 35  THEN  LET  d  fX,y)  = 
1:  BEEP  ,8S,X*y/2:  LET  ceil£=Ctl 
l£-  +1 

150  LET  b(x,y) =a  (x,y) 

180  NEXT  y :  NEXT  X 
170  LET  yea r  =0 
175  BORDER  7:  CLS 
150  RETURN 

190  REM  ***************** 

200  REM  Print  colony 
210  LET  Mear=year+l 
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220  BEEP  .  02  ,  RNE>  *20 

RT  a^O;  INK^RND*©; 

255  LET  ce t Is —0 

260  FOR  X  =2  TO  10:  FOR  y  =2  TO  1 


270  LET  a  (x  ,  y  >  =  b  tx  ,  y  J 

280  IF  a(X,yJ=0  THEN  PRINT  ” 


285  IF  a(X,y)=l  THEN  PRINT  INK 
RND*-£-;  ■’»  ••;  :  LET  ce  l  is  =£S  i  is  H 
290  NEXT  y :  PRINT  :  PRINT  :  PR I 
NT  TAB  8; :  NEXT  X  _ 

292  PRINT  RT  21,0;  INK  RNDS6; *H 

iiiua  cells;*' 

298  IF  ceils <6  THEN  RUN 
295  RETURN 

3O0  REM  a-***-*-*-***-****-*-** 

310  REM  Update 

34-0  FOR  X=2  TO  10:  FOR  y  =2  TO  1 

3 

34-5  BORDER  RND#6 
350  LET  C=0 

360  IF  3  ix-l,y-l.l  =1  THEN  LET  C  = 

r  f  ^ 

370  IF  a  fx -1 , y  J  =1  THEN  LET  c=c  + 

I 

38S)  IF  a  (X -l^y +13  =1  THEN  LET  C  = 
c  -f,r  3 

390  IF  a  iX ,y-lJ  =1  THEN  LET  C=C  + 

1 

4-00  IF  atX,y+D=l  THEN  LET  C=C  + 

^4-10  IF  a(X+I,y-l)=l  THEN  LET  C  = 
C  +1 

4-20  IF  a(X+Ly)=i  THEN  LET  C  =C  + 


4-30  IF  a  fx  +1 , y  +13  =1  THEN  LET  c~ 
c  +1 

4-4-0  IF  a  ( X  ,  y  3  =  1  AND  C  02  RND  C< 
>3  THEN  LET  b(x.y)=0 
4-50  IF  a  (X,yi  =B  AND  C  =3  THEN  LE 
T  b(X#y)  *1 
4-50  NEXT  y  :  NEXT  X 
4-70  RETURN 
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Matchsticks 

This  game  is  based  on  one  which  was  played  in  the  film  "Last 
Year  at  Marienbad".  There  are  a  certain  number  of  'matches' 
at  the  start  of  the  game,  and  you  and  the  computer  take  it  in 
turns  to  take  one  or  more  away.  The  maximum  number  you 
can  take  is  shown  at  the  top  of  the  screen.  The  player  who 
takes  the  last  match  loses.  The  computer  is  not  infallible. 


S  *  HftTCHSTXCK5  * 

1©  REM  WHITE  TEXT  OK  BLUB  _ 

PAPER  I:  INK  7:  BORDER  X:  t-- 


20  LET  E=© 


1_ET  Z  =  16  +  aHT  <  RND  3- 


90 


30  IF  2  +  ( Z  SeL )  =Z  THEN  LET  Z=Z  +  1 
4.0  LET  H-INT  (RNDsi)  +2 
50  PRINT  PR PER  RND *5+2;  INK 
RT  0  ..  6;  ‘‘MAXIMUM  TO  TfiKE  IS  *• ;  H 
50  IF  E > 0  THEN  PRINT  RT  7,2;  **Y 
QU  TOOK  ■*;  E;  TRB  20;  "I  TOOK 

70  FOR  K=1  TO  Z :  BEEP  .  01  .  K 
30  PRINT  INK  RND *5+2;  K;  "I  "Y 
20  IF  RND:».S5  THEN  PRINT  .•  PRX 
M  1 

1©0  NEXT  K 

105  LET  K=7.  IF  RND > . 5  THEN  LET 


110  INPUT  INK  K; "HOW  MANY  WILL 
YOU  TAKE?  " ; E 

120  IF  E  >H  OR  E  < 1  THEN  GO  TO  11 

0 

130  CL 3  :  LET  Z=Z-E 

14.0  IF  Z=0  THEN  BORDER  ANI>j7:  P 
PINT  PAPER  AND *5;  RT  10,12;"!  WIN 
BEEP  . 05,RND*30+30:  GO  TO  14-0 
150  LET  G=Z-i-INT  ( fZ-1) / (Htl) J 
*  t  H+ 1 )  +  INT  i  RND  * 3  J  - 1 
160  IF  Q>Z  OR  OR  0>H  THEN  G 

O  TO  ISO 
170  LET  Z=Z-Q 


130  IF  Z  =0  THEN  BORDER  RND *7;  P 
RINT  ;  PAPEk  RND *3 ; RT  10,5; "I  yn 
®  Y*-‘U  WIN!";  BEEP  .05 

,  RND  *4-0  ;  SO  TO  13© 

190  GO  TO  50 
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MRXIMUM  TO  TAKE  IS  5 


YOU  TOOK  3  I  TOOK  1 

11  S| 


d-l  5|  G|  71  8| 

?I 

135  1 H 

12*  13|  14-1 


Fruit  machine 

The  next  program  costs  you  an  inflationary  $1.50  a  spin. 
From  time  to  time  the  HOLD  option  will  come  up.  You  can 
hold  all  four  reels  if  you  like.  When  HOLD  comes  up,  you  just 
enter  each  number  you  wish  to  hold,  pressing  ENTER  aftar 
each  one.  When  you  have  held  enough,  or  if  you  don't  want 
to  hold  any,  enter  5,  then  press  ENTER  which  gets  you  back 
to  the  next  roll. 


fuKc 

30  GO  sue  9000 

4*0  POKE  23692,-1  A 

^0  PPPER  0;  Ci_6  :  BORDER  fi>;  IN 

*0  PRINT  '''  PRPER  2;  TRB  2;  'TH 
is  IS  ROUND  ROUND  •  'TRB  2i"YOU 
HhUE  MONEY  ‘  "  TRB  2;  PRE'^^  RN>' 

I - >  Q  ^  ** 

^70  JF  INKEY$<>""  THEN  60  TO  T5S 
S3  IF  INKEY$  =  *'  **  THEN  60  TO  80 
SSS  POKE  23692  ,  - 1 

3©  FOR  6=1  TO  58:  BORDER  RNB*7 
;  BEEP  , ©1,58-6:  NEXT  6:  BORDER 


180  FOR  U  =  1  TO  4 
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n© 

220 

24.0 

xS0 

155 

15© 

leg: 

170 

173 


INK 

NEXT 


GO  TO  60 
•‘YOU  5URUIUE 


efio.K 


I  s 


THEN  GO  TO  250 

LIZ  *  <  V'  =5NT,  f«ND*4->  +1 

BEEP  .1, 50/0 
NEXT  U 

LET  ROUND  sROUND+1 
GO  SUB  5000 
GO  SUB  4-000 

££  «nd>,7  then  go  sue  6000 

=  .  tk.£°£LI~£  I£  PRINT  AT  2  7s 

-ND*7;”  «  -.  'next  t  Iy<aS^ 

■i'7  FOR  T  =  1  TO  25.  PRINT  ; 

160  IF  HONEY >0  THEN 
29©  PRINT  -•  '  ' TAB  5; 

0  "j  ROUND;  "  ROUND'S '* 

295  BORDER  RND*7 
2O0  PRINT  "BUT  NOW  YOU  ARE 
E  AND  THE" 

205  BORDER  RND*7 
220  PRINT  "C  A  S  I  N  O 
L  O  S  E  DS  ** 

225  BORDER  RND*7 
220  POKE  23692,-1 
23©  PAUSE  10 
24-0  GO  TO  190 
4-000  REM  **■  HONEY  ** 

4-005  PRINT  ''';  POKE  23692,-1 
101©  LET  HONEY =MONEY -1-5 
4.020  IF  fitl)=R(2)  AND  A12J=A(3.> 
AND  Af3J=A(4J  THEN  FR2NT  INK  6 ;  ** 
£££££  JACKPOT i » • !  ££££££££££■'. 

BEEP  2 *  20;  PRINT  '  ' "YOU  WIN  *2© 
1  1  “  :  LET  HONEY  =MON£Y  +20:  GO  TO  4- 
200 

4-030  IF  (Atl)=Bf2.>  AND  (A  C3.>  «A  1 2 
>  OR  Rf4) =R(2)))  OR  fl(l) =fl(2)  AN 
D  Ai2J=A<4J  OR  A(2)=R(3J  AND  A  (3 
:i=A(4J  THEN  PRINT  INK  6;  PAPER  2 
;"$*$$$$*$  THREE  OF  A  KIND.1  $$*$ 
$'•  BEEP  2 , 20:  PRINT  ''"YOU  WIN 
$5":  LET  MONEV=MONEY+5:  GO  TO  4-2 

4§4.0  IF  AC3i=A(2)  AND  A  (3)  (4) 

THEN  PRINT  INK  6;  PAPER  2;"**$$$ 
TRIO  $$  TRIO  $$  **$**":  BEEP 
2,4.0;  PRINT  ''"YOU  WIN  47,50'*. 
LET  MONEY  —HONEY  +  7  »  5  ;  GO  TO  4-200 
i050  JF  A  C  1.1  +R  tSf  +A  f  3.'  *A  f  4-->  =10  T 
HEN  PRINT  PAPER  »;•*>>>>>>>>"; 

PER  0;"  SMASHEROOJ ! " :  BEEP  2 , -30 
PRINT  ''"YOU  WIN  $7,50* ! LET 
MONEY =M  ONE Y + 7 , 5 
4-100  FOR  T  =  1  TO  20. 

;  BEEP  -01,T:  NEXT 
4-105  PRINT 
4-210  FOR  T  =  2  TO  64-. 

0*7; ;  NEXT  t 


BORDER  RND*7 
T;  BORDER  & 

PRINT  INK  RN 
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4.15“©  PRINT  '  'TAB  8;  "YOU  NOW  HflWC 
$"  ;  HONEY '  * 

4-3.30  FOR  T=1  TO  64-:  PRINT  INK  RN 
:  NEXT  T 
4-3.4-©  PRINT 

4-150  POKE  23692.-1.-  PRINT  :  PRIN 

T 

4-1S0  DIM  M<4..> 

4-17©  RETURN 

5000  REM  **  SPIN  ** 

5010  FOR  T-l  TO  5(3;  BORDER  RND  #7’ 
^  BEEP  *  01  ,  50/T.<'£ ;  NEXT  T.  6QRDE 

5020  PRINT  '  ‘  '  ' T RB  4-; 

5030  FOR  0-1  TO  4-  _ 

IF  AkO  THEN  PRINT  INK  2 } 
”»<>■  :  BEEP  ,1,10 

5050  IF  RfOJ=2  THEM  PRINT  INK  7; 
”*S$*  :  BEEP  < ly 20 

5060  IF  R(W)=3  THEN  PRINT  INK  4-/ 
"■*3*  ;  BEEP  .1,30 

5070  IF  R  ijy  *=4-  THEN  PRINT  INK  5; 

UU  “ ;  :  BEEP  .1,4-0 
5080  PAUSE  70 
5090  NEXT  0 
5100  RETURN 
6000  REM  its  HOLD  it* 

6010  DIM  M  (5.1 
6020  BEEP  .5,1 
6025  POKE  23692, -1 

6030  PRINT  ' ‘  INK  6; "ENTER  RNV  N 
UMBER (S)  YOU" 

604-0  PRINT  '  INK  6;  "WISH  TO  HOLD 
ENTER  5" 

6050  PRINT  '  INK  6; "WHEN  YOU  HRU 
E  FINISHED" 

6060  INPUT  0 

6070  IF  OoS  THEN  PRINT  INK  2;© 
5080  LET  M  (0.1=0 

6090  IF  O  <  >  5  THEN  GO  TO  606© 

5100  RETURN 

9000  REM  **  PS  SIGN  URRIPBLES  it  it 

9010  DIM  R(5>:  DIM  M  f 5 J 

9020  LET  MONEY =7 . 5 

9030  LET  ROUN0=1 

904-0  FOR  T=1  TO  20 

905©  BEEP  ,2,2*T 

906S  NEXT  T 

9070  BORDER  7:  PAPER  7.-  CL 6 

9030  BORDER  0;  PAPER  0;  CLS 

9090  RETURN 
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Final  circuit 

FINAL  CIRCUIT  was  adapted  from  a  ZX80  program  (2K 
RACETRACK)  first  published  in  the  National  ZX  Users'  CLUB 
monthly  magazine,  INTERFACE.  The  original  version  was 
written  by  Alan  Gunnell. 

It  is  easy  to  play,  and  because  it  ends  up  giving  you  a  score 
after  each  'race',  acts  as  a  challenge  to  play  it  over  and  over 
again,  trying  to  increase  your  score.  There  are  three 
'racetracks'  on  which  you  can  drive,  of  varying  degrees  of 
difficulty. 

Throughout  the  race,  you  are  asked  to  enter  your  choice  of 
acceleration  and  gear  setting.  You'll  soon  learn  the  effects 
these  have.  Your  score  is  shown  at  all  times  (line  220),  and  a 
final  score  is  given  at  the  end.  Your  feedback  (including  such 
lines  as  'Driver  behind  is  hooting,  hurry  up'  if  you're  dragging 
your  heels)  is  in  words,  and  comes  throughout  the  race. 
You'll  find  there  is  a  great  tendency  to  crash,  and  your  vehicle 
manages  somehow  to  survive  an  infinite  number  of  crashes. 
Of  particular  interest  is  line  290,  which  takes  the  place  of  five 
IF/THEN  statements  of  the  type  IF  H  =  5  THEN  LET  B$  = 
"oily  straight"  and  so  on. 


S  REM  Final  Circuit 
10  REM  Adapted  from  ZX60 
12  REM  program  by  Rian  Gunnell 
14  REM  First  published  in 
16  REM  INTERFACE 

1©  REM 

20  LET  a*E:  LET  3*1:  LET  b*3 
22  BORDER  1:  PRPER  7:  INK  0 
25  INPUT  "Which  track  13  TO  5) 


v 

27  IF  V  <3  OR  V  >S  THEN  GO  TO  25 
30  LET  X  =0 
40  LET  l=100+V*v 
50  LET  S  =0  ___ 

50  IF  X  =10  THEN  STOP 

II  IFTX=10+THEN  PRINT  INK  RND* 
TRB  8;  “THE  RFICE  IS  OUER  ’  TRB  4 
‘Score  is  11  ;  i  ;  14  out  of  '  *  1& 
5P0KE  2359fe j - 1 ^  BORDER  RND*7: 
iEP  . ©2^ RND*&0:  GO  TO 


2t4 


110  GO  sue  180 

112  FOR  t  =1  TO  50:  BEEP 

NEXT  t 

115  GO  SUB  270 

120  PRINT  INK  RND*6: bl 

125  GO  SUB  14-5 

130  GO  SUB  350 

135  PPUSE  50 

14-0  GO  SUB  270 

14-2  GO  TO  6©  _  _ 

14-5  FOR  t  si  TO  50:  BuRlJK 
NEXT  t :  BORDER  1 
14-9  LET  s=RB5  ts+C3*ai-f 
2  s-a  J  ) 

150  PRINT  ' ' ' '  PAPER  2; 
Gear  “ g ”  ..  speed  s 
160  GO  SUB  h#1080 
13®  BORDER  1-  INPUT  INK 

c  t  .»  gear  <1  to  10  3 “ ; 9 

190  IF  9  <1  OR  Q  >  10  THEN 


BEEP  , 02, t : 


eei  r 

1S0 

13® 

C  ?  i 

190 
30 
-200 
lion 
21© 
00 
220 
ore  i 
24.0 


uRDtH  RND  *7 
a i  - (b*±5)  + C 
2  ;  INK  ” 


?: “Sets 


Q  > 10  THEN  GO  TO  1 


INPUT  INK  7: “Enter  a 
(0  to  101 “ ; 5 

IF  3(1  OR  a >10  THEN 


220  PRINT  INK  RHD*6; "Cur 

re  is  ink  2 ;  t 

24.0  INPUT  PAPER  2.  INK  6 
braKing  >0  TO  13J ", b 
250  IF  b<0  OR  b>10  THEN  GO  TO  2 


cce lera 
GO  TO  2 
rent  sc 
:  “Enter 


260  RETURN 

27©  LET  h=INT  <RND*V) +1 
29©  LET  b*«<“oity  Straight "  RND 
rsS)  +  rhairpin"  and  h=<t)  +  rcorn 
er"  AND  h=3)  +("bend"  RND  h=2>+<” 
straight”  rnd  h  =  l) 

340  RETURN 

350  IF  a  =0  THEN  LET  a  =  1 

350  LET  SnflBft  (S + <a *3} - ( b*15) +■ t 

2»q>) 

370  IF  5(10  THEN  LET  S  =10 
350  IF  S <15  THEN  PRINT  -•••''  JN 
K  2i  “Drive  r  be  hind  is  hooting" : 
PRINT  '  INK  li “Hurry  up” 

400  RETURN 

1000  IF  S >90  THEN  PRINT  INK  2 : ”Y 
ou're  speed i ng ... s  low  down*“:*LE 
l  =  t  -S 

1010  RETURN 

£000  IF  s>40  THEN  BEEP  3.50.  FOR 
■3=1  TO  20:  BORDER  RND  *5 :  NEXT  q 
:  PRINT  INK  2; “Crash" 

2010  IF  b>8  THEN  PRINT  INK  2. “Cr 
3Sh”  :  BEEP  .5,.  20:  BORDER  RND  *■©  ; 
PRUSE  20:  LET  l=l-3+INT  fRND*l©> 
202©  RETURN 

3000  IF  S  >25  THEN  FOR  r=i  TO  10: 

PRINT  INK  RND *6/  "Crash :  )  }  !  i  )  !  }  * 
*•:  NEXT  r:  LET  1=1-10 
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3©1©  RETURN 

4-300  IF  S  >3S  THEN  PRINT  INK  2.;”* 

£***##Cra  Sh  *  **■**•■*■  i-*-**-*'*-^*-*-**'*'*'-1  : 

LET  1=1-10 
4-01©  RETURN 

5000  IF  S>20  THEN  PRINT  INK  2.;  "C 

CCCCCf  ffffaasassssshhh!  *  i  !  i  “  :  LE 
T  L=L-I0 

5005  FOR  t  =1  TO  50:  PAPER  RND.+7: 

CL. 3  :  NEXT  t  :  PAPER  7 

5©10  IF  b>3  THEN  PRINT  "Cf8»h! J" 
:  LET  t  =  i.  -10 
5020  RETURN 


Breakout 

In  this  game,  based  on  one  written  by  Eric  Thompson,  you 
control  the  action  of  the  little  slide  at  the  bottom  with  the  “1 " 
and  "0”  keys.  Your  ball  is  a  small  letter  "o". 

3  POKE  23609,100 
5  REM  BREAKOUT 

S  REM  BASED  ON  ZXQI  PROGRAM 
7  REM  BY  ERIC  THOMPSON 
9  GO  SUB  500 

15  PAPER  6.  CLS  :  BORDER  2 
20  FOR  L=0  TO  7 

■  AT  L,8;  INK  RND*3;  "»V 

•WWWVW" 

4-0  NEXT  L 
55  LET  S=0 
60  LET  X  =1 5 

70  LET  B=INT  (RND*10.>  +8 
S0  LET  0=1- INT  (RND*3) 

90  IF  0=0  THEN  GO  TO  80 
100  FOR  P=8  TO  -8  STEP  -1 
110  IF  AB5  B>1S  THEN  LET  S=IS 
115  LET  X =X  +  i INKEY$  =  "0" J  - t INKEY 
«*  =  "  a  "  } 

12©  PRINT  AT  9,X-2;  INK  2;"  P? 

” ; AT  P,B;  INK  i; "o" 

14-0  LET  B1=B 

150  IF  B=S  OR  B=1S  THEN  LET  0=- 
© :  BEEP  , 005 . 30 
160  LET  B=&+0 

170  LET  X=X  +  f  INKEYS  =”B **3  -  t  INKEY 
**,*1“) 

175  FOR  G=1  TO  Z;  NEXT  G 
180  PRINT  AT  P,B1;  *'  *' 

190  NEXT  P 
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3.95  LET  X=X+  (INKEV*  {  2NKEY 

j  =  '*  j 

200  IF  BBS  CB-X.i  >2  THEN  GO  TO  2 
36 

265  LET  5=3+1 

216  PRINT  RT  13.-3;  INK  l;“YC*ur 
score  is  INK  2;  5.-  BEEP  .25,3 

220  GO  TO  30 

230  FOR  G=1  TO  4-00;  NEXT  G 
24-0  LET  5  =  6 
250  GO  TO  15 

500  INPUT  “DEGREE  OF  DIFFICULTY 
(1  TO  20)  7“  2 

510  IF  Z  •;  1  OR  Z:>26  THEN  GO  TO  5 
60 

520  LET  2=2*2 
530  FOR  5=1  TO  2 
54-©  BEEP  .01,5 

550  next  5 

550  RETURN 


Galxian 

This  program  was  adapted  by  Tim  Hartnell  from  a  ZX81 
program  written  by  James  Walsh  and  Paul  Holmes  and  was 
first  published  in  the  magazine  DATABUS. 


.1 ) 

HO 


r  iX  i  f 

ies,  Walsh 


Hartnei.  l 


4 

GO  SUB  1000 

s 

BORDER  0 

e 

PAPER  0 .  CLS 

? 

INK  5 

■1  tT* 
-A. 

LET  X=l© 

a© 

LET  5=0 

30 

LET  P=1 

40 

LET  S«S +P 

50 

CLS 

00 

PRINT  RT  © , 6; S 

70 

LET  P  =  0 

S0 

LET  N=16 

30 

LET  Y  =13 

a  00 

LET  C=6 

la© 

PRINT  RT  15, X; “ 

* 

120 

IF  INKEY*  =  "5‘*  THEN 

LET 

130 

IF  INKEYt  =  ”  8  **  THEN 

LET  , 

140 

PRINT  RT  15, X;  INK 

2;R* 

145 

BEEP  .  004-  ,10 

X=X- 
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150  PRINT  RT  P,N;  ••  " 

160  IF  RND  > . 65  THEN  LET  N=N+INT 
{ RND  #  3  —  1 ) 

170  IF  RND >.3  THEN  LET  P=P*1 
190  PRINT  RT  P ,  N;  INK  4-;  "fa" 

300  IF  P  >  14-  THEN  GO  TO  5 
210  IF  C=0  RND  INKEY*  s"!*'  THEN 
LET  C=X+1 


IF  0=0  THEN  GO  TO  11® 
PRINT  RT  Y,C;"  ’■ 

LET  Y=Y-1 

IF  Y<4-  THEN  GO  TO  90 
PRINT  RT  Y,C;  BEEP 


22® 

23® 

24.0 
250 
26© 

5® 

27®  IF  C=N  RND 
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Y=P  THEN  FOR  U=1 
TO  3:  PRINT  RT  Y , C;  INK  RND*8; ** 
**•.-  BEEP  .15,15:  BORDER  RND *7 :  B 
EEP  .15,20:  BORDER  RND  if  7;  BEEP  . 
15,30:  NEXT  U.  GO  TO  *0 
230  GO  TO  110. 

1©©©  LET  R*="v4tfN" 

10©5  FOR  J=©  TO  7 

1010  RERD  N 

102®  POKE  USR  ”R*'  +U ,  N 

1®3®  NEXT  J 

104.®  FOR  0=0  Tu  7 

1050  RERD  N 

1©6©  POKE  USR  *'B"*U,N 

LOT©  NEXT  J 

1080  FOR  J=0  TO  7 

109©  RERD  N 

1 100  POKE  USR  ,,C"+U,N 

1110  NEXT  J 

112©  FOR  J=0  TO  7 

113©  RERD  N 

114.®  POKE  USR  "M"+U,N 

1150  NEXT  U 

115©  FOR  J=0  TO  7 

117©  RERD  N 

113©  POKE  USR  "E"+U,N 

119©  NEXT  U 

2000  DRTR  BIN  1111111®, BIN  11111 

100,  BIN  11111000, BIN  11110001,81 
N  ©1100001, BIN  10010001, BIN  1011 
100®, BIN  10111100 

2©10  DRTR  BIN  0111111®, BIN  1©111 

101,  BIN  11000011, BIN  01000010, BX 
N  00000000, BIN  0100001®, BIN  0011 
110®, BIN  ©0111100 

2020  DRTR  BIN  01111111, SIN  00111 
111, BIN  00011111, BIN  10001111, 61 
N  10000110, BIN  10000001, BIN  0001 
1101, BIN  00111101 

203®  DRTR  BIN  01111110, BIN  10011 
001, BIN  11000011, BIN  0ii0®110,BI 
N  01100110, BIN  10000001, BIN  110© 
0011, BIN  11100111 
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204-0  DATA  BIN  11110111, BIN  11100 
011 j  BIN  11010101, BIN  10110110, BI 
N  11110111, BIN  11110111, BIN  1110 
0011, BIN  11001001 
5000  RETURN 
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Microdrive 

This  is  a  miniature  microfloppy  disc  memory  systam.  Each 
Microdriva  holds  up  to  10QK  of  program  or  data,  and  up  to 
eight  can  be  connected  to  the  Spectrum  at  once.  The  transfer 
rate  of  information  from  the  Microdrive  to  the  Spactrum  is 
16K  per  second,  and  the  total  time  to  scan  the  antire 
microfloppy  to  find  a  particular  point  is  seven  seconds 
although  many  access  times  will  be  less  than  that.  Some 
commands  which  have  not  been  mentioned  in  this  book  are 
designed  entirely  for  the  Microdrive  and  the  RS232  interfaca. 


RS232  interface 

The  RS232  interfaca  allows  the  Spectrum  to  be  connected  to 
any  of  peripherals  (such  as  printers,  terminals,  other 
computers)  which  are  RS232  compatible.  The  RS232  to  en 
industry  standard,  so  there  is  a  wide  range  of  uses  for  a 
Spectrum  with  the  interface.  The  interface  operating  system 
is  in  the  Spectrum  monitor. 


Other  commands 

OPEN=H,  CLOSER,  MOVE,  ERASE.  CAT  and 
FORMAT  are  designed  for  use  with  the  interface  and 
Microdrive.  The  Microdrive  supports  not  only  SAVE, 
VERIFY,  LOAD  and  MERGE,  but  also  PRINT,  LiST,  INPUT 
and  INKEY$. 

IN  and  OUT  are  commands  to  trigger  the  computer's  input 
and  output  ports,  and  are  used  for  controlling  or  obtaining 
information  from  such  things  as  the  keyboard  or  printer. 
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Binary  to  decimal 
converter 

You  may  prefer  to  use  decimal,  rather  than  binary,  numbers 
in  your  data  statements  for  user-defined  graphics.  If  this  is  so, 
this  list  should  help  you;  in  case  you're  interested,  the 
program  used  to  print  out  the  list  is  given  at  the  end. 


* 

1 

minis 

2 

3 

00008100 

4- 

00800101 

S 

08000118 

6 

88880111 

7 

88881880 

e 

88881881 

9 

80881818 

18 

00081811 

11 

08881100 

12 

88881101 

13 

80801118 

141 

08001111 

IS 

00018008 

IS 

88818081 

17 

88810810 

IS 

88010011 

12 

00010108 

28 

80818101 

21 

80810118 

22 

00018111 

23 

88811808 

24 

08011081 

25 

08811810 

25 

00011011 

27 

88811108 

23 

88811101 

22 

88011118 

30 

80811111 

31 

80100080 

32 

80188081 

33 

88180018 

34 

88188011 

35 

08100188 

36 

88188101 

37 

88188118 

36 

00100111 

32 

80181008 

48 

80181001 

41 

08181818 

42 

88181811 

43 

88181188 

44 

00101181 

45 

222 


46 

00101111 

4-7 

00110000 

48 

00110001 

49 

00110010 

50 

00110011 

Si 

00110100 

52 

00110101 

S3 

00110110 

t?4 

00110111 

55 

00111000 

56 

00111001 

57 

00111010 

53 

00111011 

59 

00111100 

66? 

00111101 

51 

00111110 

62 

00111111 

63 

01000000 

54 

01000001 

55 

01000010 

66 

01000011 

67 

01000100 

66 

01000101 

69 

01000110 

70 

01000111 

71 

01001000 

72 

01001001 

73 

01001010 

74 

01001011 

75 

01001100 

76 

01001101 

77 

01001110 

76 

01001111 

79 

01010000 

66 

01010001 

SI 

01010010 

62 

01010011 

83 

01010100 

84 

01010101 

65 

01010110 

86 

01010111 

87 

01011000 

88 

01011001 

89 

01011010 

90 

01011011 

91 

01011100 

22 

01011101 

93 

01011110 

94 

01011111 

95 

01100000 

96 

01100001 

97 

01100010 

98 

01100011 

99 

01100100 

108 

01100101 

101 

01100110 

102 

01100111 

103 

2*3 

@1101000 

184 

01101001 

185 

01101010 

185 

01101011 

107 

@1101100 

105 

01101101 

10Q 

01101110 

118 

@1101111 

111 

01110000 

112 

@1110001 

1 13 

01110010 

114- 

01110011 

11S 

01110100 

116 

@1110101 

117 

01110110 

1 13 

01110111 

119 

01111000 

128 

01111001 

121 

01111010 

122 

01111011 

123 

01111100 

124- 

01111101 

125 

01111110 

1  D 

01111111 

-T  ^ 

* 

10000000 

_*£.  rz. 

10000001 

129 

10000010 

1^0 

10000011 

131 

10000100 

132 

10000101 

.X  >_■  Ik" 

10000110 

134- 

10000111 

135 

10001000 

136 

10001001 

137 

10001010 

-l  -I  C5 
A  »_• 

10001011 

-T  ."i  Q 

10001100 

14-8 

10001101 

141 

10001110 

14-2 

10001111 

1 4-  :3 

3 0010000 

144 

10010001 

14-5 

10010010 

14-6* 

10010011 

il4-  / 

10010100 

14-6 

10010101 

14* 

10010110 

158 

10010111 

151 

10011000 

152 

10011001 

153 

10011010 

154 

10011011 

155 

10011100 

156 

10011101 

157 

20011110 

-7  “  O 

20011111 

159 

10100000 

1  to  It? 

10100001 

lto-1 

224 

20100010 

2&2 

10100011 

lt-3 

10100100 

264- 

10100101 

165 

1010011© 

lt>6 

10100111 

167 

10101000 

168 

10101001 

IdS 

10101010 

178 

10101011 

171 

10101100 

172 

10101101 

173 

10101110 

174- 

10101111 

176 

10110000 

178 

10110001 

177 

10110010 

173 

10110011 

172 

10110100 

130 

10110101 

182 

10110110 

132 

10110111 

133 

10111000 

134. 

10111001 

185 

1011 1010 

136 

10111011 

237 

10111100 

133 

10111101 

132 

10111110 

128 

10111111 

121 

1 1000000 

122 

11000001 

123 

11000010 

194- 

11000011 

193 

11000100 

2  96 

11000101 

197 

11000110 

293 

11000111 

199 

11001000 

200 

11001001 

201 

11001010 

202 

11001011 

203 

11001100 

284- 

11001101 

203 

11001110 

286 

11001111 

207 

11010000 

208 

1 1010001 

289 

11010010 

218 

11010011 

211 

11010100 

2  22 

11010101 

213 

11010110 

214. 

11010111 

216 

11011000 

216 

11011001 

217 

11011010 

213 

11011011 

219 

225 


10.01 1100 
11011101 
11011110 
11011111 
11100000 
11100001 
11100010 
11100011 
11100100 
11100101 
11100110 
11100111 
11101000 
11101001 
11101010 
11101011 
11101100 
11101101 
11101110 
11101111 
11110000 
11110001 
11110010 
11110011 
11110100 
11110101 
11110110 
11110111 
11111000 
11111001 
13111010 
11111011 
11111100 
11111101 
11111110 
11111111 


221 

222 

£23 

224- 

225 

226 
227 

223 

• 

230 

£31 

233 

234- 

235 

23o 

237 

£38 

239 

24-0 

241 

24-2 

24-3 

24-4- 

24-3 

24-3 

24-7 

24-3 

24- 2 
2^0 
£51 
232 

pc;^ 

254- 

25- 5 


10  FOR  E;=0  TO  355 
20  LET  U=B 


3©  LET  «$  =  *•'* 

4-0  FOR  N-0  TO  7 


50  LET  T=«J-INT  (J/2) *2 


60  IF  T  =0  THEN  LET  ft$?  = 

70  if  T  <  >  0  then  l ci  h $ 

80  LET  «J  ss  INT  t<Jx23 
90  NEXT  N 
100  PRINT  fitjB 
110  NEXT  B 


S”  +R«t! 

£  ’  -f-R$ 
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Report  codes 

These  appear  at  the  bottom  of  the  screen  whenever  the 
computer  stops  executing  some  BASIC,  and  explain  why  it 
stopped,  whether  for  a  natural  reason,  or  because  an  error 
occurred. 

CONTINUE  generally  goes  to  the  line  and  statement  specified 
in  the  last  report,  but  there  are  exceptions  with  reports  0,  9 
and  D. 

Code  Meaning 
0  OK 

Successful  completion,  or  jump  to  a  line  number  bigger 
than  any  existing. 

1  NEXT  without  FOR 

2  Variable  not  found 

3  Subscript  wrong 

A  subscript  is  beyond  the  dimension  of  the  array,  or 
there  are  the  wrong  number  of  subscripts. 

4  Out  of  memory 

5  Out  of  screen 

An  INPUT  statement  has  tried  to  generate  more  than  23 
lines  in  the  lower  half  of  the  screen.  Also  occurs  with 
PRINT  AT  22, .  . . 

6  Number:  too  big 

Calculations  have  led  to  a  number  greater  than  about 

103B. 

7  RETURN  without  GO  SUB 

8  End  of  file  (Microdrive,  etc,  operations) 

9  STOP  statement 

A  Invalid  argument 

B  Integer  out  of  range 

C  Nonsense  in  BASIC 
D  BREAK  -  CONT  repeats. 

The  behaviour  of  CONTINUE  after  this  report  is  normal 
in  that  it  repeats  the  statement. 

E  Out  of  DATA 
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F  Invalid  file  name 
G  No  room  for  line 

H  STOP  in  INPUT 

I  FOR  without  NEXT 

J  invalid  I/O  device.  (Microdrive,  etc,  operations) 

K  Invalid  colour 

L  BREAK  into  program 

BREAK  pressed,  this  is  detected  between  two 
statements. 

M  RAMTOP  no  good. 

The  number  specified  for  RAMTOP  is  either  too  big  or 
too  small. 

N  Statement  lost. 

Jump  to  a  statement  that  no  longer  exists. 

O  invalid  stream.  (Microdrive,  etc,  operations.) 

P  FN  without  DEF 

Q  Parameter  error. 

Wrong  number  of  arguments,  or  one  of  them  is  the 
wrong  type  (string  instead  of  number  or  vice  versa). 

R  Tape  loading  error 
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CONTENTS: 

Using  the  keyboard .  5 

The  PRINT  statement . . .  7 

PRINT  formatting  and  TA8 .  1 1 

SAVEIng  programs .  16 

VERIFY,  MERGE .  17 

PRINT  AT .  19 

SQUASH .  20 

COLOURS  AND  GRAPHICS . *>.  22 

PYRAMID .  24 

COLOUR  CODE .  25 

PLOT,  GALAXY . 33 

DRAW,  BROKEN  GLASS .  34 

BROKEN  CURVES . 36 

CIRCLE,  TUNNEL  VISION .  3B 

DEMONSTRATIONS .  39 

STRING  ART,,,. .  42 

MOIRE  PATTERNS .  46 

POINT .  49 

The  printer,  LLIST,  LPRINT,  COPY .  49 

Rendom  numbers . . 50 

DICE  ROLLER,  BULL  FIGHT .  52 

Varlsbles .  55 

Scientific  notation .  55 

String  variables .  57 

CRICKETS .  57 

INPUT .  59 

COMBAT .  60 

Compound  interest .  62 

Preventing  INPUT  crashes .  63 

GO  TO .  73 

IF/THEN  GO  TO . 74 

True  Et  false .  75 

Relational  Operators .  75 

BLOB-CATCHER .  76 

IF/THEN/ELSE .  64 

Greph  plotter .  84 

FOR /NEXT  loops .  80 

Nested  ioope . 90 

QTgp  Q2. 

GOSUB  and  RETURN.’.’'.' . . !...  94 

GOSU 6  race .  05 

Sound . 96 

Random  music . 97 

PIANO .  96 

Well -tempered  Spectrum . „ .  96 

Simon . 99 

Defining  functions  . .  1 00 

BAT .  101 

DIM  snd  arrays .  102 

Coda-braaker .  106 

String  arrays . .  108 

String  hendiing .  109 

Using  LEN . . .  1  1 1 

Using  5TR$ .  112 

INKEY9 .  117 

PREDICTION .  118 

MAZE  MAKER . 118 

Using  the  frame  countar .  120 
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READ/DATA/RESTORE .  121 

User-defined  graphics .  124 

DIAMOND . 125 

ELEPHANT .  126 

Creating  DOTMAN .  127 

Blank  grids .  136 

Clearing  part  of  display .  1  37 

Screen  scrolling  in  BASIC . .  1  37 

Saving  lines  at  screen  edges .  1  39 

Moving  graphics .  141 

SCREENS  and  scrolling . 150 

ROAD  RUNNER .  150 

Red  Arrow .  151 

Garbage  gobbler .  1  54 

ATTR .  155 

String  manipulation .  156 

Basic  invaders .  1  59 

Shifted  INK EY$ .  163 

Introduction  arithmetic  on  computer .  1 64 

Priorities . 165 

Arithmetic  progression . 166 

Prime  numbers .  167 

Statistics .  1 68 

T-TEST .  171 

Species .  175 

Functions . 176 

Converting  other  SASlCs .  1  79 

REEK  and  POKE .  169 

Stopwatch .  193 

Business  uses .  194 

Co  mpou  n  d  in  terest .  194 

Word  processing .  195 

Book  index . . .  19B 

Improving  your  progrems .  199 

Programs,  programs,  programs .  203 

Greyhound . . .  203 

ColourtheMo .  204 

Life  1  and  1  1 .  207 

Matchsticks .  210 

Fruit  machine .  21 1 

Final  circuit .  214 

Breakout .  216 
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Join  the  national  ZX  Users  Club 

Hake  the  most  of  your  ZX  Spectrum  by  joining  the  Hat  tonal  ZX 
Users 1  Club,  the  country’s  largest  user  group. 

Each  month  we  publish  the  magazine  INTERFACE,  which  includes  at 
teast  six  Spectrum  programs,  as  well  as  six  each  for  the  2X80 
and  the  2X81.  As  well  as  programs,  there  are  tetters  from 
members,  hints  and  tips,  hardware  articles,  software  and  hardware 
reviews,  and  contact  addresses.  We  maintain  an  'assistance  by 
mail'  service  for  members,  to  help  you  with  your  hardware  or 
progranwoi ng  problems.  And  if  you  decide  to  start  a  local  users 
group,  we’ll  publicise  your  name  and  address,  and  help  you  get 
underway  in  the  quickest  possible  time. 


National  ZX  Users'  Club, 
Dept.  PY, 

44  *■  46  Earls  Court  Road, 
LONDON  W8  6£J 


i  wish  to  join  the  National  ZX  Users'  Club. 

1  have  access  to: 

(  }  a  ZX  Spectrum  (  )  a  ZX8t  {  )  a  2X80 

Please  send  me  the  next  12  issues  of  the  magazine  INTERFACE. 

I  enclose  £9.50  (U.K.),  £12.50  {Europe) ,  £16,00  {other) 

Please  al 70  send  me  the  following : 

{  )  The  Soectrum  Program  Lfbrary  -  6D  GAMES  ANO  APPLICATIONS 

FOR  THE  2X  SPECTRUM,  by  David  Harwood.  The  Spectrum 
Program  Library  contains  listings  of  60  complete  programs, 
ready  to  run  on  your  Spectrum.  The  programs  Include: 

BREAKOUT,  ZAP,  CETROPDlO,  AV010,  SURGE,  MINEFIELD,  B 1 LUBQARO , 
CATCH,  GALAXY  PATROL,  20MB 1ES,  TRAILER,  SEA  RAIDER,  REACTION, 
DRAGON'S  G0L0,  ADVERTISING  01  SPLAY,  CHEQUEBOOK,  ALLEY  DRIVER, 
COLOUR  SKETCHPA0,  FIGHTER,  JACKPOT,  LETTER  CHASER  -  and  morei 
The  Spectrum  Program  Library  Is  £4.95- 

(  )  GETTING  ACQUAINTED  WITH  YOUR  ZX8!  -  Tim  Hartnell  -  The  UK's 

best-seiiing  ZX81  book  contains  more  than  80  programs.  Nearly 
all  of  them  will  run,  without  modification,  on  the  Spectrum. 
Includes  a  complete  ORAUGHTS  game.  E$-95 

(  )  49  EXPLOSIVE  GAHES  FOR  THE  ZX81  -  edited  Tim  Hartnell.  Forty-nine 
games  programs  for  the  ZX81 ,  plus  27  for  tbo  ZX8D,  which  can 
easily  be  converted  to  run  on  the  Spectrum.  £5.95 

(  )  34  AMAZING  GAMES  FOR  THE  IK  2X81  -  Atastelr  Gouriay.  Great 

program  ideas  to  develop  and  expand  for  the  Spectrum.  £4.95. 

I  enclose  a  total  of  £ _ .  Please  send  me  the  items  marked. 

Hame  _ _ _  _  _  _ 

Add  res  s 

_ _ _  py  2 

--—-Pi ease  send  this  page ,  or  4  copy - — — - ~ — - 
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Your  ZX  Spectrum  is  a  powerful  computer  and  this  book  will  help  you  make  the 
most  of  it.  From  first  principles,  right  through  to  quite  complex  programming 
techniques,  this  book  leads  you  step  by  simple  step  through  the  art  of  programming 
your  new  computer. 

The  book  contains  more  than  100  programs  and  routines,  all  guaranteed 
to  run,  designed  to  get  your  computer  up  and  running  with  interesting  and 
worthwhile  programs  from  the  moment  you  switch  it  on. 

The  book  is  by  Tim  Hartnell,  one  of  the  UK's  leading  experts  on  small  computer 
systems,  and  best-selling  author  of  a  number  of  ZX  books,  including,  'Getting 
Acquainted  with  your  ZX81',  '49  Explosive  Games  for  the  ZX8V  and  'Making  the 
Most  of  Your  ZX80'.  He  is  also  author  of  the  authorative  'Personal  Computer 
Guide',  published  by  Virgin  Books;  The  Book  of  Listings'  (co-author  Jeremy 
Ruston),  published  by  the  BBC;  and  'Let  Your  BBC  Micro  Teach  You  to  Program', 
published  by  Interface,  He  is  a  regular  contributor  to  the  monthly  computer 
magazines,  and  answers  readers'  queries  each  month  in  Your  Computer.  Tim  is 
editor  of  the  bi-monthly  magazine  'ZX  Computing',  Britain's  biggest  magazine  for 
the  Sinclair  user. 

In  this  book,  Tim  is  joined  by  Dilwyn  Jones,  an  experienced  computer  program¬ 
mer  of  many  years  standing.  Dilwyn  has  made  a  special  study  of  ways  of  getting  the 
maximum  use  out  of  ZX  computers,  and  shares  his  findings  with  you  in  this  book. 

Interface  books  are  designed  to  make  the  art  of  computer  programming  simple, 
and  inviting,  and  this  book  follows  strongly  in  this  tradition. 

The  computer  press  have  welcomed  previous  books: 

"if,  in  any  sense  you  are  a  beginner  to  programming  or  computers,  this  is 
undoubtedly  the  book  to  read .  Full  of  insight,  witty,  sensible  and  extremely 
funny,  it  eases  you  into  programming  practically  from  the  word  go. . ,  " 
Persona /  Computer  World . 

"Tim  Hartnell  has  certainly  provided  the  reader  with  many  varied  programs 
but  in  the  text,  linked  to  most  of  the  listings,  is  a  well  thought  out  'hands  on' 
approach. . .  As  you  work  your  way  through  the  book,  not  only  does  your 
library  of  programs  grow  but  also  your  understanding  of  the  BASIC 
commands  which  make  them  possible . . .  "  Computing  Today. 


Another  great  book  from 
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